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MODULE SYSACLSRV ( 

LANGUAGE (BL 18832), 

IDENT = 'V04-000 

ADDRESSING_MODE (EXTERNAL = GENERAL, 

' NONEXTERNAL = LONG. RELATIVE) 
= 


BEGIN 


RAAT AAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAA AAAAAEAAAAAAAAAAAAAAAAEAAAREEKERAEE 


1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
!* ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
RDAN H N THE 


!® COPYRIGHT (c) 1978 


OOOCoooooooooooo 
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; 1 

: | 
: 4 

3 5 0 

: $ 1 

@ } 

+ 10 0 1 ° 

; i O12 | : 

; 18 p 1 e 

- } : 

: 16 09 1 ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH ‘ 

H 17 0 1 !® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

: 18 00 1 !'* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

3 19 00 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 8 

H , +4 : ~ TRANSFERRED. - 

: ¢ 00 1 is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

: 00 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; 35 if : :* CORPORATION. . 

; 6 00 1 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; 00 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. « 

eee ee 

: $3 008 1 WETTITILITILILILILLL LLL LLL LLL LLL iiiil 

3 1 00 1 

Bh Bede 

; $e B88 : FACILITY: Miscellaneous system services 

; 36 003 | ABSTRACT: 

; 36 0038 1! This module contains the routines necessary to convert an Access 

; 0039 1! Control Entry from a user (text) format to an internal (binary) 

3 re sk ! format and back again. 

; 4¢ 0048 | | ENVIRONMENT: 

: rf Dee \ VAX/VMS operating system, non-privileged system services. 
: 46 0046 1 ine | 
; o O48 | 

: $3 a6 } AUTHOR: L. Mark Pilant CREATION DATE: 30-Sep-1982 11:00 

; 31 0051 i MODIFIED BY: | 
: 35 bag 1! V03-021 LMP0299 L. Mark Pilant, 8-Aug-1984 12:31 

: e¢ 54 1! aoa re SYSPRV to add an ACL to a device if it is unowned | 
3 5 Bee ' } and there is no ACL already present on the device. 
: 3$ 3$ 1 i v03-020 LMP0275 L. Mark Pilant, Ti-Jul-1984 10:11 
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if 
1228687} 


f the AC j a 
t. (This is to optimize the path through EXESCHKPRO_INT.) 


L defined in the ORB is not a queue, initializ 


L. Mark Pilant 29-Jun-1984 13:18 
d support for ORBSV_NOACL. (this is used by shared memory 
mailboxes to disallow ACLs.) 


v03-018 Lapoces L. Mark Pilant, 26-Jun-1984 11:25 
x 


a bug that caused the success status to be dropped from 
the formatted AUDIT type ACE. 


t. Mark Pilant, 3-May-1984 14:30 
Include the FID in the lock resource name for files, so that 
unique lock names will be grpececes Also, do the unlock 
regardless of the status if indicated by the item List. 


v03-016 LMP0243 ‘. Mark Pilant, 1-May-1984 8:45 
ng 


Fix the dispatch so that if an error occurs, processin 
of the item List is not aborted. However, only items tha 
do not alter the ACL are processed. 


v03-015 erect? Andrew C. Goldstein, 18-Apr-1984 11:50 


ix probing and lock access mode problems 


v03-014 ACG0415 Andrew C. Goldstein, 30-Mar-1984 17:49 


Add ACL mutex handling to CHANGE_ACL; add options parsing 
to default protection ACE; break out ACL processing 
subroutines into separate common module; mask success 

and fail flags in audit display; remove I0SB parameter 

in SCHANGE_ACL; defer unloc ing of file ACL until end 

of operation; find UCB ACL Listhead in ORB instead of UCB. 


v03-013 LMP0222 bs Mark Pilant, 27-Mar-1984 14:22 


Change the tie off syatess. necessary because of Linking 
with XQP module ALLOCB, from locations to offsets. 


v03-012 LMP0213 L. Mark Pilant, 13-Mar-1984 9:53 


aad support for exclusively locking and unlocking the 
object for ACL modifications. 


v03-011 LMPO185 L. Mark Pilant, 22-Feb-1984 16:25 


d support for device ACLs. Also, improve the error 
handling considerably through judicious use of PROBing. 


v03-010 LMP0179 L. Mark Pilant 8-Dec-1983 15:46 


d a new routine SYS CHANGE _ACL, for changing the ACL 
associated with an object. 


V03-009 LMP0174 L. Mark Pilant, 22-Dec-1983 9:58 


Add support for RMS journal-ID ACEs. 


v03-008 LMP0170 L. Mark Pilant 1-Dec-1983 16:43 
Add support for the NOPROPAGATE flag. 

v03-007 LMP0152 L. Mark Pilant, TenSepe 138s 15:13 
Make SECURITY the journal name for AUDIT and ALARM ACEs. 
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14-Sep- LOADSS.SRCJSYSACLSRV.B32;1 
v03-006 LMP0140 L. Mark Pilant 23-Aug-1983 20:21 
Add support for alphanumeric UfCs. 
v03-005 LMP0135 L. Mark Pilant 8-Aug-1983 11:03 


Change the parsing and formatting of directory default 
ACEs slightly. 


V03-004 LMP0123 L. Mark Pilant 22-Jun-1983 10:36 
Change the name of the FLAGS field to OPTIONS. 


v03-003 LMP0122 L. Mark Pilant 20-Jun-1983 9:14 
Add support for a directory default protection ACE. 


vO3-002 LMPO114 L. Mark Pilant, 11-May-1983 10:42 
Add support for an access bitmask name table. 


V03-001 LMP0103 L. Mark Pilant 24-Apr-1983 19:14 
Add support for HIDDEN and PROTECTED ACEs. 
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BRARY 'SYS$LIBRARY:LIB.L32': 
BRARY 'SYSS$LIBRARY:TPAMAC.L32': 
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: 133 138 } ! Declare necessary builtin functions. 

: 141 140 1 BUILTIN 

3 | 141 «1 TESTBITSC, 

; «(14 128 1 INSQUE, 

S| Oe | ea 

; 146 145 1 PROBER, 

s 14 148 1 PROBEW, 

: 138 Bie : REMQUE; 

; 130 0149 1 LINKAGE 

s 3} 180 1 L_PROBE = JSB (REGISTER = 3, REGISTER = 1, REGISTER = 0) 

3 126 bi24 1 : NOPRESERVE 5 

; 13? 136 : NOTUSED (4, 5, 6, 7, 8, 9, 10, 11), 

; 155 154 1 L_VERIFY = JSB (REGISTER =_0; REGISTER = 1) 

H 138 155 1 : NOPRESERVE ¢. 3) 

3 + 34 3128 : NOTUSED (4, 5, 6, 7, 8, 9, 10, 11), 

: 159 0158 1 L_MUTEX = JSB (REGISTER = 0, REGISTER = 4) 

; 168 0161 1 FORWARD ROUTINE 

s 4 3196 1 SYSSPARSE_ACL, ' Convert ACE to binary 

3 164 0163 1 SYSSFORMAT_ACL, ' Convert ACE to text 

: 165 0164 1 SYSSCHANGE_ACL, ! Change an object's ACL 

3 196 B12 : GET_PARENT_LOCK, ! Take out parent for ACL locks 
: 198 3198 ! ! TPARSE action routine 

: 170 0169 1 SET_ID ! Save a converted identifier 
3 1) git : SET-ACCESS_BIT, ! Set desired access bit by name 
; 178 bi7¢ ' ! ACL queue head locating routines. 

: 175 0174 1 GET_UCB_ACL. ' For UCBs 

: 176 0175 «#1 GET_JBC_ACL, ! For Job controller queue 

: 177 0176 1 GET~CEB-ACL. i For CEBs 

; 178 0177 «+1 GET_LNT_ACL, ' For logical name tables 

; 179 8158 1 GET_PCB_ACL, ! For processes — 

3 130 a : GET_GBL_ACL, ! For global sections 

: 18¢ a8 ! ACL action routines. 

: 184 1 5 1 ACL_DISPATCH ' Main ACL function dispatcher 
3 133 O18s : RUNDOWN_CHANGE _ACL; ! Clean up SCHANGE_ACL context 
: 187 186 1 EXTERNAL ROUTINE 

; 188 187 1 ACL_ADDENTRY, ' Add an ACE 

: «189 \33 1 ACL_DELENTRY, ' Delete an ACE 

; 190 189 1 ACL_MODENTRY, ! Modify an ACc. 

3; «191 190 1 ACL_FINDENTRY, ! Locate a specific ACE 

: 196 191 «1 ACL_FINDTYPE, ! Locate a specific ACE type 
; 19 198 1 ACL-DELETEACL, i Delete the entire ACL 
3 194 193 1 ACL_READACL ' Read the ACL 

: 195 194 1 ACLACLLENGTH, i Get the ACL's length 
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3 136 195 1 ACL_READACE ' Read a single ACE | 
: 19 196 1 ACL“LOCATEACE i Lo ate ACE by context 
: 198 197 1 ACL“ INIT QUEUE, i Initialize the ACL queue 
.% 138 1 ALLOC_PAGED ' Paged pool allocator 
: 200 199 1 DALLOE PAGED, | Paged pool deal locator 
: 201 9 1 LIBSTPARSE, ' Genera purpose parser 
; 0 [on LIBSFID_TO_NAME, ' FID to file=spec translator 
; 87 8 1 LIBSGET- VM, ! General memory allocater 
: 8 1 LIBSFREE_VM, ' General memory deallocater 
$ 05 4 1 EXESPROBER : L_PROBE ADDRESSING_MODE (GENERAL) 
$ 5 1 ' Probe buffer for read 
3 8 8 $ 1 EXESPROBEW : L_PROBE ADDRESSING_MODE (GENERAL) 
3 8 1 ' Probe buffer for write 
; 09 08 1 IOCSVERIFYCHAN : L_VERIFY ADDRESSING_MODE (GENERAL), 
; 10 09 1 ! Ver channel number 
: 11 10 #1 SCHSLOCKR : LLMUTEX ADDRESSING_MODE (GENERAL), 
3 \¢ 11—=«1 ' Lock mutex for read 
3 1 0 \¢ 1 SCHSLOCKW : L-MUTEX ADDRESSING_MODE (GENERAL), 
: 14 021 1 ' Lock mutex for write 
3 15 0214 1 SCHSUNLOCK : LLMUTEX ADDRESSING_MODE (GENERAL); 
: 18 8 1? : ' Unlock mutex 
3 18 0 i$ 1 EXTERNAL 
: LSGL_ : LOCK; : ress of process 
} 8 18 : CTLSGL_PCB REF S$BBLOC ! Add f PCB 
: 1 0 1 MACRO 
3 33 4 8 $f 1 ARG_COUNT = 
3 40 ; 1 BEG! 
3 & 4 8 1 BUILTIN AP; 
3 5 i 4 1 .(.AP)<0,8 
3 6 i) 8 5 N 
i 33h 0557 | 
: $9 ™ 0228 1 SET_IPL (LEVEL) = 
: 0 ® 8 9 1 BEGIN 
s 231 i] eo % BUILTIN MTPR; 
; $ ‘| = MTPR (ZREF (LEVEL), PRS_IPL) 
; 23 M 3 1 END 
: $e a “i 
; 3% 8 35 1 LITERAL 
s <¢s0 $$ 1 ACL_TYPE = 7 ! Must parallel CF11X.SRCIFCPDEF .B32 
: 3 023 : MAX_ACL_SIZE = 512; ! Max size of an ACL segment 
: $20 35 1 LITERAL | 
> 241 40 1 MIN_OBJECT_TYPE = MINU (ACLSC_FILE | 
: 4¢ 41 1 ACL$C~DEVICE, 
: 24 g 1 ACL$C_JOBCTL_QUEUE, 
: 44 4 1 ACLSC_COMMON EF CLUSTER 
: 265 44 1 ACLS$C~LOGICAC_NAME_TABLE, | 
3 4 45 1 ACLSC_PROCESS | 
: 4 46 ACLS$C~GLOBAL_ SECTION), 
> 26 48 1 MAX_OBJECT_TYPE = MAXU (ACLSC_FILE | 
> 250 49 1 ACL$C~DEVICE, 
: 51 50 1 ACL$C_JOBCTL_QUEUE, 
3 52 0251 1 ACLSC_COMMON_EF CLUSTER, | 
| 


~ 
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; 253 0 33 1 ACL$C_LOGICAL_NAME_TABLE, | 
: & 1 ATLSC_PROCESS 
; ; 24 ACLS$C-GLOBAL_SECTION), | 
3 
: 257 0 28 1 MIN_ACL_ATR = MINU (ACLSC_ADDACLENT, 
; 258 0257 1 ACLSC_DELACLENT, 
: $59 0958 1 ACLSC"MODACLENT. | 
:; 260 0259 1 ACLSC_FNDACLENT, 
: 261 0260 1 ACLSC-FNDACETYP, 
; 268 0261 1 ACLSC"DELETEACL, | 
; = 0 6¢ 1 ACL$C_READACL 
; 364 0 63 1 ACLSC"ACLLENGTH, 
; 265 64 1 ACLSC_READACE 
> 266 0265 1 ACLS$C-RLOCK_ACL, 
: 5p Ose? | ACLSC“UNLOCR ACL) 
; $53 $569 i MAX_ACL_ATR MAXU (A LSC_ADDACLENT 
; 271 0270 1 i ip ACLSCTDELACLENT. 
: sie 0271 1 ACLSC_MODACLENT, 
3 (ar O676 1 ACLSC_FNDACLENT, 
; e746 0275 1 ACLSC_FNDACETYP, 
3 ate 0274 1 ACLSC_DELETEACi, 
: 276 0275 1 ACLSC_READACL 
; 277 0276 1 ACLS$C_ACLLENGTH, 
; 278 0277 1 ACL$C-READA 
: 279 0278 1 ACLSC-RLOCK_ACL, 
; 280 0279 1 ACL$C_WLOCK"ACL, 
: 281 0280 1 ACL$C_UNLOCR_ACL); 
; obe 0281 1 
; 28 bees 1 OWN 
> 284 0285 1 JOURNAL _ACES : BYTE INITIAL (0), ! Journaling ACEs allowed 
3 ed 0284 1 ! Q = no support 
; 286 0285 1 ! 1 = support in 
; 287 0286 1 ACE_BUFFER : SBBLOCK CATRS$S_READACLI, } storege for binary ACE 
; 288 0287 1 ACE_INDEX, ! Index into ACE key area 
; 289 0288 1 ACE_TYPE ' ACE type code 
; 290 0289 1 ACE-RIGHTS, i ACE access rights 
; 291 0290 1 UIC_FLAGS, ' UIC conversion flags 
; 292 0291 1 UIC _ COUNT ! Number of UIC id's entered 
> 293 029¢ 1 IDENTIFIER : $BBLOCK C44 i Converted identifier 
> 29% 0293 1 1D_NAME : SBBLOCK COSCSC_S_BLNI, ! 1D name descriptor | 
: 295 0294 1 ID_COUNT, ! Number of identifiers given 
; 96 0295 1 JOORNAL_NAME =: S$BBLOCK CDSC$C_S_BLNI, ! Journal name descr 
: 0 36 1 ACCESS_FLAGS, ! Audit access flags 
: 298 0297 1 SYSTEM_PROT SBBLOCK (4), ' System protection default 
: 299 8 98 1 ER_PROT $BBLOCK (4), ' Owner protection default 
; 300 99 1 GROUP_PROT : SBBLOCK (4), ' Group protection default 
; 301 0300 1 WORLD_PROT : SBBLOCK (4 ' World presses ton default 
; 4 B30 1 BIT NAME TABLE : REF BLOCKVECTOR C,DSCSC_S_BLN.BYTE), ! Access bit name table addr 
; 2» 0 1 CHARGE _ACMODE, '“atcess mode for S$CHANGE_ACL 
: 304 0303 1 CALL_ACMODE, ' access mode of caller 
: 305 8 1 PARERT_ID, ! Parent ID for ACL locks 
; 306 5 1 ACL_QUEVE HEAD : REF S$BBLOCK, ! Address of the ACL queue head 
; 307 1 ACL-POINTER : REF $BBLOCK, ' Address of current segment 
; 308 5 1 ACL_SPLIT ! Offset to ACE in segment 
: 309 308 1 ACE~POINTER : REF SBBLOCK, i Address of current ACE | 
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3; 447 P 0445 1 SSTATE (, 

: 648 P 0446 1 (*)* CHK_FOR_END) 

; 449 44 1 3 

; 450 0448 1 

: 451 449 1! File access audit. 

: 12g 450 1 

; 45 P 0451 1 SSTATE (GET AUDIT, 

> 4546 P bb 28 1 (*s'f, 

; 455 P0455 1 ie yt 

>; 456 ett 1 ); 

; 457 P 0455 1 $STATE ( 

; 458 P 0456 1 ((GET_STRING),,.,JOURNAL_NAME ) 
; 45 0457 1 ); 

: 460 0458 1 

; 461 0459 1 ! Check to see if there is an access type to follow 
3 re 0460 1 

: 46 P 0461 1 S$STATE (, 

> 464 P 0462 1 (*," ,GET_KEYWORD), 

> 465 P0463 1 ("5° CHKTFOR_END) 

> 466 0464 1 : 

: 467 0465 1 

; 468 0466 1 ! File access alarm 

; 469 0467 1 

; 470 P 0468 1 $STATE (GET ALARM, 

; 471 P 0469 1 (*s'f, 

. 7, P 0470 1 :“s"3 

; 47 0471 1 ); 

: 476 P 047 1 SSTATE (¢ 

; 475 P0473 1 ((GET_STRING),,,,.JOURNAL_NAME ) 
: 476 0474 1 ); 

: 4677 0475 1 

: ri Bees : ! Check to see if there is an access type to follow 
: 480 P 0478 1 $STATE (, 

: 481 P 0479 1 cf * ,GET_KEYWORD), 

> 482 P0480 1 (*5*° CHKTFOR_END) 

; 483 0481 1 : 

: 484 0482 1 

; 485 0485 1 ! Get the access type code 

: 486 0484 1 

; 487 P 0485 1 S$STATE Cee] ACCESS, 

; 488 P 0486 1 » 

3; 489 P 0487 1 (er8) 

; 490 ety: 1 ); 

> 491 P 0489 1 SSTATE (GET_ACCTYPE, 

; 49 P 0490 1 (*SUTCESS’,, -ACESM_ SUCCESS ,,ACCESS_FLAGS), 
; 49 P 0491 1 ("FAILURE',, ,ACESM_ FAILURE, ACCESS_F LAGS), 
3: 494 P pn 3s 1 ("NONE *) 

: 495 P0493 1 ((GET_STRING),,SET_ACCESS_BIT) 
: 696 94 «1 ); 

: 497 P0495 1 S$STATE () 

; 498 B 36 1 76" GET. ACCTYPED. 

3; 499 P 0497 1 (*)*, CHK_FOR_END), 

; 200 P +38 1 Pi ie “KEYQORD) 

; 501 1 os 

; 206 500 1 : 

; 50 501 1 ! Get any special flags applied to the ACE. 
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yon-000 SPARSE_ACL system service 122808- 1982 93320583 LOADS SREISYSALL SRV. B82: 1 . (4) 
; 618 615 1 2SBTTL ‘SPARSE ACh systen service’ 
: o}? o18 } GLOBAL ROUTINE SYSSPARSE_ACL (ACL_STRING, ACL_ENTRY, ERROR_POSITION, BIT_TABLE) = 
S| BB Tis 
: 6 § Oe O | | FUNCTIONAL DESCRIPTION: | 
> 625 Oe ¢ 1 This routine converts the Access Control Entry from a text form to 
>; 6 $ 6 1! the binary form. 
>; 6 0624 1! 
: 628 625 1 | CALLING SEQUENCE: | 
: ° 3 : $ : SYSSPARSE_ACL (ARG1, ARG2, ARG3, ARG4) 
: 631 0628 1 | INPUT PARAMETERS: | 
:; 6 ¢ 0629 1! ARG1: address of the input text descriptor 
; 6 0630 1! ARG2: address of the output buffer descriptor 
: o3¢ be 1 : ARG4: address of an access bit name table 
: 636 oe88 1 | IMPLICIT INPUTS: 
ia ae ee pee 
: 639 0636 i QUTPUT PARAMETERS: 
: oy ot : ARG3: number of characters processed | 
; 64¢ 0639 1 | IMPLICIT OUTPUTS: 
Bee a 8 | pte, | 
> 645 0646 1 i ROUTINE VALUE: 
; 646 0645 1! SS$_NORMAL : The conversion was successful. 
: 647 0644 1! SS$_ACCVIO: The input or output descrtptors cannot be read, the 
: 648 0645 1! output buffer cannot be written, or the output buffer 
; 649 aee8 ,: is not large enough to contain the converted ACE. 
; 650 bee . 2 SS$_IVACL: The syntax of the input ACE is invalid. 
s 631 648 1! SS$_NOSUCHID: The identifier specified in the ACE is not in the 
: 628 ¢h4 : rights database. 
: 654 0651 1 | SIDE EFFECTS: 
; 655 bees zg none 
; 656 653 1! 
3; 657 0654 1 !-- 
: 658 0655 1 
; 659 Be28 BEGIN 
OBE baw 
: 66¢ 38 ACL_STRING REF $BBLOCK, ' Address of input descriptor 
; 66 0660 ACL_ENTRY : REF SBBLOCK ! Address of output descriptor 
: 664 0661 ERROR POSITION : REF VECTOR C,woRD], i‘ Syntax error position 
; 665 4 BIT_TABLE : REF VECTOR; ! Address of access bit ame tale 
: $6 LOCAL 
: 668 5 STATUS ! Routine exit status ; 
; 669 ACL_STRING_LEN, i Length of input ACL string | 
: 670 ACL-ENTRY_CEN, ! Length of output ACE buffer | 
3 orl 8 TPARSE_BLOCK : SBBLOCK CTPASK_LENGTHO); ! Parser context block 
: $78 0 2 EXTERNAL LITERAL | 
; 674 0671 LIBS_SYNTAXERR; 
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7 

$78 ' Check to see if an access bit name table was supplied. If so, use it 
ere ! rather than the default table. 

9/8 BIT_NAME_TABLE = 0; 

67 IF [BIT_TABLE ait 0 

ore THEN IF~PR OBER Bi... ef dh ZREF (256), .BIT_TABLE) 

67 THEN B ABLE = .BIT_TABLE 

eB ELSE BETORN” Ess NAC EV IO: 

¢ ! Set up initial parameters. 

684 CHSFILL (0, ores gee nmACh ACE Burren 

685 ACE_INDEX = ACER RIGATS = 

6 § UIC"FLAGS = ure: -{ in 

68 ID_COUNT = 

ret) ACCESS FLAG 
06 JOURNAL LAGS = Oi LENGTH] = ID_NAMECDSC$W LENGTH] = 0; 
geny SYSTEM_PROT = OWNER_PROT = GROUP_PROT = WORLD_PROT = 0; 


069 CHSFILL (0, TPASK_LENGTHO, TPARSE_BLOCK); 
069 TPARSE -BLOCKETPASE | COUNT]. = TPASK~COUNTO: 
0694 TPARSE “BLOC 


REV) = 1; 
95 F PROBER (ZREF tbr" GREP (scéc _S.BLN), .ACL_STRING) 
be9 th MEN EGIN 
0698 ACL_STRING_LEN = TPARSE PL OCuC TPASL =STRINGCNT) = .ACL STRING[DSCSU LENGTH); 
0699 If EXESPROBER (0, .ACL_STRING ACL_STRINGCDSCSA {BOI TERJ) 
0700 THEN TPARSE “BLOCKEPASC STRINGPIRG 2 2 hee TSTRINGEDSCSA. POINTER) 


ity RETURN’ SS$_ACCVIO 
ELSE RETURN SS$_ACCVIO; 
STATUS = LIBSTPARSE (TPARSE_BLOCK, ACE_STATE, ACE_KEY); 
! If necessary set the number of characters processed. 


IF ERROR POSITION NEQA 0 
THEN IF PROBEW (ZREF (0) BREF Age’ seenOR POSITION) 


THEN ERROR_POSITION(O] CEN 
PARSE RBLOtK TPASL_STRINGCNT) 
ELSE RETURN SS$_ACCVIO; 


! If ghere 1) are any syntax errors, 2) is an invalid ACE type (zero), 
! or is remaining text to the AcE; return an error. 


IF .STATUS pet b Les. SYNTAXERR 
CE_TYP 


ASiATUS” AND vate -BLOCKCTPASL_STRINGCNT) GTR 0) 
THEN RETURN SS$_ iVACL 


IF NOT .STATUS THEN RETURN .STATUS; 
' Set up the standard ACE fields. 


ACE_BUFFERCACESB_TYPE] = .ACE_T 
ACE~BUFFERCACESW-FLAGS) = .ACE TOUFFERCACESW. FLAGS) 
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OR .UIC_FLAGS 
OR .ACCESS FLAGS; 
 BUFFERCACESL_ACCESS] = .ACE_RIGHTS; 
! Based upon the type code, finish up the ACE. Then do the final error 
i checking to make sure that I didn't get more than I wanted. 
CASE -ACE_TYPE FROM ACESC_KEYID TO ACESC_DIRDEF OF 
CACESC_KEYID): 
BEGIN 
»ACCESS_FLAGS NEQ 
OR . JOURNAL NAME CD DSC$W_LENGTH] NEQ 0 
OR .UIC_COURT GTR 1 
OR .ACE-INDEX EQL 0 
THEN RETURN SS$_IVACL; 
ACE_BUFFERCACESS_SIZE) = ACESC_LENGTH + .ACE_INDEX * 4; 
c_BIJNL. 
ACESE- ALJN 
ACESS “ATINGS: 
BEGIN 
IF NOT - JOURNAL LACES THEN RETURN SS$_IVACL; 
IF .UIC_COUN 
OR .ID OuNT 
OR .ACTESS_ FLAGS NEQ 0 
OR .ACE_RIGHTS NEQ 
THEN RETURN SS$_IVACL; 
CHSMOVE (.J JOURNAL -hARE EBSCEA POLE 
. JOURNAL ~NAMELDSC$A~POINTERI, 
AcE e PFERCACESL ACCESS) 
ACE_BUFFER ACESB. SIZE] = TJOURNAL_NAMECDSC$W_LENGTH] + 
SBYTEOFFSET (ACESL_ACCESS); 
CacesC Crhuorr 
cee IN 
IF .UIC_COUNT NEQ 0 
OR .1D_COUNT N 


OR .JOORNAL NAMECDSCSW LENGTH] wee XZCHARCOUNT ('S 
OR CHSNEQ CECHARCOUNT T'SECURITY'), UPLIT ('S SECURITY 


JOURNAL NAMELDSC$W TLENGTHI, . JOURNAL _NAM 
THEN RETURN SS ates 
CHSMOVE (. J 


OURNAL L_NAMECDSCSW_ LENGTH] 
RNAL NAMECDSCSA~POINTERS, 
ite FFERCACESL_KEY)); 
ACE_BUFFER Atese SIZE] = ACESC_LENGTH + .JOURNAL_NAMECDSC$W_LENGTH); 
CACESC_DIRDEF): 
BEGIN 
IF .ACCESS_FLAGS NEQ 0 
. JOURNAL _NAMECDSCS$W_LENGTH) NEQ 0 
R .UIC_COURT NEQ 0 
COUNT Ned 0 
THEN RETURN SS$_IVACL j 
S OT :SYSTER_PROT; 
SYSTEM PROTCARNSV. FILL] =70; 
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- | 
> 789 7 $ ACE BUFFERCACESL _SYS PROT) ; , SYSTEM. PROT; | 
 F 7 OWNER_PROT = = Ow WAGER? 

: 791 7 : OWNERPROT ARNSV_FILL = 0; 

: 79 7 ACE _BOFFERCACESL-OWN PROT <ene peal 

: 79 790 GROOP_PROT = NOT~.GROUP_PROT; 

: 794 791 GROUP"PROTCARMSV_FILL] = 05 

: 795 79 ACE_BOFFER aht-s¥0 PROT) = .GROUP_PROT; 

: 296 79 ORCD_PROT = NOT~.WOR D_PRO ; 

> 79 794 WORLD ~PROTCARMSV_FILL 

: 798 795 ACE _BOFFERCACESL~WOR PROT] = .WORLD PROT: 
: 199 196 ACE-BUFFERCACESB_SIZE) = ACESC_LENGTH + 16; 

; #01 135 CANRANGE RETURN SS$_IVACL; 

eo mi | 

: 605 8 8¢ ! Check to make sure there is room to receive the ACE.° 

: 807 804 2 IF PROBER (ZREF (0), SREF (DSCSC_S_BLN), .ACL_ENTRY) 

: $08 Opes NEN 

: 810 0807 ACL TENTRY LEN = ACL -ENTRYCDSCSu_ LENGTH]; 

> 811 0808 IF ACE BOFFE RCACE$SB-SIZE) L Atte 

: Big 0809 Ew (0, .ACL ENTRY RCL TENTRYLDSCSA POINTER]) 

: 81 0810 THEN CHSCOPY ACE “guebeetRYaL Or ize KCE_B 

; 814 0811 L7ENTRYCDSCS$W met tatte eee VENTRYCDSCSA. POINTER]) 
3 gi? Bate ELSE RETURN SS$ MAEtV IO. 

: 817 0814 ELSE RETURN SS$_ACCVIO; 

; 819 0816 RETURN SS$_NORMAL; 

: B21 0818 1 END; ! End of routine SYSSPARSE_ACL 


~TITLE SYSACLSRV 
-IDENT \v04-000\ 


-PSECT _LIBSKEY1$,NOWRT, SHR, PIC,1 
00000 ; TRASKEYSTO 


v. ~BL 0 
52. 45 49 46 49 54 4E& 45 44 49 00000  TPASKEYST 
0.5: eASCII = \IDENTIFIER\ 2 
FF QO00A -BYTE =1 : 
00008 ; TPASKEYSTO 0 


0.11: | .BLK 
45 4D 41 4E SF 4C 41 4E 52 55 4F 4A SF 49 42 00008 ; TPASKEYST 
0.13: .ASCII \B1_JOURNAL _NAME\ : 


FF 001k “BYTE ; 
0018 sTPASKEYSTO, . 
45 4D 41 4E SF 4C 41 4E 52 55 4F 4A SF 49 41 00018 zipASKENST 
ASCII \AI_JOURNAL_NAME\ ; 
FF 20024 Y “1 
0028 TRASKEYSTO 
0.26: 0 


<= 
4 


vou O00 SPARSE_ACL system service 
45 4D 41 GE SF 4C 41 GE 52 55 4 
4C 41 4E 52 55 4F 4A SF 54 

4C 41 4E 52 55 4F 4A SF 4D 

53 53 

53 4E 4F 

54 43 45 54 4F 52 50 SF 54 4C 55 
53 53 45 

45 52 55 

54 4C 55 

4— 45 


&A 


49 


45 


49 


41 


43 


4C 


45 


41 


44 


SF 


44 


41 


43 


54 


46 
4E 


43 


49 


4E 


46 


uo 


54 


55 


4C 


43 


50 


45 
4F 


55 


41 


ae 


45 


49 


bese -1984 
18-86-1984 93:2 


00028 ; TPASKEYST 
U.28: Cll 


.AS 
$6038 sTPAS evetd 


U. oat lg 
00038 ; TPASKEYS 

U.35: ASCII 
80048 ; Rye 
004 TPASKEYSTO 


00049 ; TPASKEYST 
U.43: ASCII 
0005 


-BYTE 
0005 ; TPASKEYSTO 
00057 


00050 
0005E 


0005€ 


00065 
00066 


L 
00066 s TPASKEYST 
U.63: .ASCII 


cee 
. 


-BYTE 
; TPASKEYF ILL 


; TPASKEYSTO 
U.116: BLK 

; TPASKEYST 

18: .ASCII 


V4.0-7 


§:2h AX-11 BLi Reisy 32 
SRCIJSYSACLSRV. 3 2;1 


LOADSS. 


\AT_JOURNAL _NAME\ 


\AUDIT_JOURNAL\ 


0 
hata aineatate 


0 
MASRESSN 


0 
ithe 


0 
\DEFAULT_PROTECTION\ 
-1 

-1 

0 

\SuCCESS\ 


0 
h: (aaa 


0 
Wee 


oi 


0 
WEFAN 


0 
\HIDDEN\ 


OF gar a 
v04- SPARSE_ACL system service 

44 45 54 43 45 
45 54 41 


47 41 50 4F 


4D 45 
52 
50 


44 


54 


52 


45 


54 


45 


55 


4C 


4F 


50 


4E 


53 


4E 


4F 


52 


52 50 


4F 4E 


4F 4E 


7 33 


57 4F 


52 47 


4F 57 


0428 


7100 
00000000* 
00000001 

0000* 


16 Se 1984 
-3epo- 
ee 4 


i) 
OO0BS ; steasneétd 
00085 ; 


00089 
QOOBA 


00088 
00088 


000C1 
000C2 


000C2 ; 


Cee Cee Cee 
—+  —te —de 
oe FE oe 
m 


ce. 
yt pe NRO 
m 
a 
Ye 
=¢ 
Oo 


ce- ce. c-- 
© =e =f 8 ate 
Ooror crc 
Fare 
oe FKee 
m 


~ 
V0 SUD Se Oe 


>or oOrvo>r 
re 


“Ce. 
o «te 


ce 
~m 
o 
ow 
m 
“an 


8 
3; TPASKEYFILL 
U.206: .BYTE 


.PSECT 
00000 ACE STATE: 
00000 ; TPASTYPE 
Ue WO 
00002 GET _KEYWORD 
00002 ,TRASTYPE 
00004 ; TRASADDR 
00008 ; TPASMASK 
U.8: . LONG 
0000C ; TPASTARGET 
U.10: ~WORD 


. 
4 
ry 


333] AX-11 Bliss-32 V 


LOADSS.SRCJSYSAC 


0 
Medea 


o 


oe 


0 
wee' 


-1 
0 
rere 


0 
seem 


0 
\ner 


0 
NYORL DN 


-1 


-LIBSSTATES,NOWRT, SHR, 


1064 

0 

28928 
<<ACE_TYPE-U.7>-4> 
1 

<<U.9-U.10>-2> 


téev 69251 


PIC,1 


} 
LS ee eT 


SYS 
v04 


S83338 


SYSACLSRV 
V04~000 


SPARSE_ACL system service 


7101 
00000000* 
00000002 

0000+ 

7102 
00000000* 
00000003 

0000+ 

7103 
00000000* 
00000004 

0000* 

7104 
00000000* 
00000005 

0000* 

7105 
00000000* 
00000006 

0000* 

1106 

0000+ 

1107 

0000+ 

7508 
00000000* 
0000000s 

0000+ 

102C 


if ue 1984 
> e - g 
12286071382 93: 
QOOOE ; TPASTYPE 
U.14: WORD 
00010 ; TPASADDR 
U.15: LONG 
00014 MS opp 
00018 ; TPASTARGET 
U.18: WORD 
QOO1A ; TPASTYPE 
U.22: WORD 
0001C Net epee 
00020 ; TPASMASK 
U.24: Los 
00024 ; TPASTARGET 
U.25: WORD 
00026 ; TPASTYPE 
U.29: WORD 
00028 ; TPASADDR 
U.30: LONG 
0002C ; TPASMASK 
U.31: LONG 
60030 ; TPASTARGET 
U.32: WORD 
00032 ; TPASTYPE 
U.36: . WORD 
00034 ; TPASADDR 
U.37: LONG 
00038 ; TPASMASK 
U.38: -LONG 
Q0003C ; TPASTARGET 
U.40: WORD 
OOO3E ; TPASTYPE 
U.44: WORD 
00040 ; TPASADDR 
U.45: ~ LONG 
00044 ; TPASMASK 
U.46: LONG 
00048 ; TPASTARGET 
U.48: . WORD 
OO04A ; TPASTYPE 
52: WORD 
0004C ; TPASTARGET 
U.54: WORD 
QO04E ; TPASTYPE 
U.58: «WORD 
00050 ; TPASTARGET 
U.60: WORD 
00052 ; TPASTYPE 
U.64: WORD 
00054 ; TPASADDR 
U.65: LONG 
00058 ; TPASMASK 
U.66: LONG 
O000S5SC ; TPASTARGET 


0005E 


. . .WO 
; TPASTYPE 


Sh UUaD PMeASTEtL RTA 
28929 
<<ACE_TYPE=U.15>=4> 
2 

<<U.17-U. 18>-2> 
28930 
<<ACE_TYPE=U.23>=4> 
3 

<<U.17"U.25>-2> 
28931 
<<ACE_TYPE=U.30>-4> 
4 

<<U.17"U.32>-2> 
28932 
<<ACE_TYPE-U.37>=4> 
5 

<<U.39-U.40>-2> 
28933 
<<ACE_TYPE-U.45>=4> 
6 

<<U.47-U.48>-2> 
4358 
<<U.53-U.54>-2> 
4359 
<<U.59-U.60>-2> 
29960 
<<ACE_TYPE-U.65>-4> 
9 

<<U.67-U.68>-2> 


SYSACLSRV 
VoL-000 


SPARSE_ACL system service 


14 
1h-Se -1984 01:51:5 AX-11 Bliss-32 v4.0-7 
1ergeb 7138s 93:20:83 «Hass ObAEsreatr sey 62.1 
U.70: WORD 4140 
se pate As thee <<GET_KEYWORD-U.71>-2 
71: " T -U.71>-2> 
1429 00062 ; TPASTYPE =. 
U.72: -WORD 5161 
0000* 00064 ; TPASTARGET 
U.74: «WORD <<U.73-U.74>-2> 
00066 jOET 10 ne a 
003D 00066 ; TPASTYPE 
U.75: WORD 61 
043A 00068 ; TPASTYPE 
U.76: -WORD 1082 
0006A GET -1DTYPE: 0 
45EC O0O06A ; TPASTYPE 
0.77: WORD 17900 
00000000* 0006C ; TPASADDR 
U.78: LONG <<IDENTIFIER“U.78>-4> 
00070 Crk _ENDID: P 
902C 00070 ; TPASTYPE 
U.79: -WORD -28628 
00000000v 00072 + TPASACTION 
U. ok <<SET_ID-U.80>-4> 
0000* 00076 : TPASTARGET 
0.81: . <<GET_KEYWORD-U.81>-2> 
902B 00078 ; TPASTYPE 
82: -WORD -28629 
00000000V 0007A ;TPASACTION 
U.83: eL <<SET_ID-U.83>-4> 
0090* OOO7E ; TPASTARGET 
U.04: . <<GET_IDTYPE-U.84>-2> 
9429 00080 ;TPASTYPE 
0.85:  .wo -27607 
00000000v 00082 ; TPASACTION 
0.86: <<SET_ID-U.86>-4> 
0000* 00086 y TPASTARGET 
0.87: oW <<U.73-U.87>-2> 
00088 ;GET_JNL 
0.177 .BLKB 0 
0030 00088 ; TPASTYPE 
v. WORD 61 
043A OO008A : TPASTYPE 
0.89: 1082 
4D0F8 0008C ; TPASTYPE 
0.90: WORD 19960 
0000* 0008E ; TPASSUBEXP 
0.92:  .WORD <<U.91-U.92>-2> 
00000000* 00090 ; TPASADDR 
0.93: LONG <<JOURNAL_NAME-U.93>-4> 
1429 00094 ;TPASTYPE 
U.94: WORD 5161 
0000* 00096 ; TPASTARGET 
U.95: WORD <<U.73-U.95>-2> 
00098 ; jks: aupit ne 


R 
v¢ 


SPARSE_ACL system service 


0030 
043A 
4DF8 
0000* 
00000000* 
102¢ 
0000+ 
1429 
0000+ 


0030 
043A 
4DF8 
0000* 
00000000* 
102C 
0000* 
1429 
0000* 


0030 
043A 


6109 
00000000* 
00000001 

610A 
00000000* 
00000002 


00098 
0009A 
0009¢ 
0009E 
000A0 
O00A4 
000A6 
000A8 
QOOAA 
QO0AC 
QOOAC 
QOOAE 
00080 
00082 
00084 
00088 
000BA 
000BC 
QOOBE 
000C0 
000C0 
000C2 
000C4 
000¢4 
000C6 
QOOCA 
OOOCE 
00000 
00004 


4 


iecSeo-19Be 01:54 


; TPASTYPE 
U.96: . 
vw 


FAWMNMO—RMOM-- 
oT) oo Gee oe gee 
«< < os 
° Tie 
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rt oe om > 
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z@ 
a 
m 
“ 
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oe mbes wn 
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Ze tie 
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tes 
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Gye fie 
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~ 


3} AX-11 Bliss-32 V4.0-7 
LOADSS.SRCJSYSACLSRV. : 2;1 


61 

1082 

19960 

<<U.91°U.99>=2> 
<<JOURNAL _NAME=U.100>-4> 
4140 
<<GET_KEYWORD-U.102>=2> 
5161 

<<U.73-U.104>-2> 

0 

61 

1082 

19960 

<<U.91-U.108>-2> 
<<JOURNAL _NAME-U. 109>-4> 
4140 
<<GET_KEYWORD-U.111>=2> 
5161 

<<U.73-U.113>-2> 

0 

61 

1082 

0 

24841 
<<ACCESS_FLAGS-U.120>-4> 
1 

24842 
<<ACCESS_FLAGS=U.126>-4> 


ya 
a 


SYSACLSRV 
VOL-000 


SPARSE_ACL system service 


0108 
8DF8 
0000+ 
00000000v 
1028 
0000* 
1029 
0000+ 
142C 
0000* 


003D 
043A 


610C 
00000000* 
00000100 
6100 
00000000* 
00000400 
610€ 
00000000* 
00000200 
610F 
00000000* 
00000800 
0510 
1028 


Ts 
1-Se 1984 01:51:5 AX-11 Bliss-32 V4.0-7 
12286871388 93:24 24 LOADSS. SRCJS SYSACLSR 
U.127: .LONG 2 
00008 ; TPASTYPE 
U.131: .WORD 267 
OO0DA Brtgst tre 
U.132: WORD -29192 
0000C ML peers 
OOODE ; TPASACTION 
U.134: .LONG <<SET_ACCESS_BIT-U.134>-4> 
QOOE2 ; TPASTYPE 
U.136: .WORD 4139 
000E4 Met, Mamta 
U.137: .WORD <<GET_ACCTYPE-U.137>-2> 
QOOE6 ; TPASTYPE 
U.138: .WORD 4137 
OOOES ; TPASTARGET 
U.139: WORD <<U.73-U.139>-2> 
OOOEA ; TPASTYPE 
U.140: .WORD 5164 
QOOEC ; TPASTARGET 
U.141: .WORD <<GET_KEYWORD-U.141>-2> 
OOOEE ZOG1 FLAGS 
U.59: .BLKB 0 
OOOEE ; TPASTYPE 
U.142: .WORD 61 
OOOFO ; TPASTYPE 
U.143: .WORD 1082 
QOOF2 GET_FLAGTYPE 
-BLK 0 
OOOF2 ; TPASTYPE 
U.147: WORD 24844 
QOOF4 ; TPASADD 
U.148: .LONG <<<ACE_BUFFER+2>-U.148>-4> 
OOOF8 ; TPASMAS 
U.149: .LONG 256 
OOOFC ; TPASTYP 
U.153: .WORD 24845 
OOOFE ; TPASADDR 
U.154: .LONG <<<ACE_BUFFER+2>-U.154>-4> 
00102 ; TPASMASK 
U.155: .LONG 1024 
00106 ;TPASTYP 
U.159: .WORD 24846 
00108 p TE ARADD 
U.160: .LONG <<<ACE_BUFFER+2>-U.160>-4> 
0010C ;TPASMAS 
U.161: .LONG 512 
00110 ; TPASTYPE 
0.165: .WORD 24847 
00112 ; TPASADDR 
U.166: .LONG <<<ACE_BUFFER+2>-U.166>-4> 
00116 viPA MASK 
U.167: .LONG 2048 
OO11A VEPASTYPE 
U.171: WORD 1296 
OO11C ; sipasived 
WORD 4139 


\. 2 
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SYSACLSRV 
V0s~000 


SPARSE_ACL system service 


0000+ 
1029 
0000+ 
142C 
0000+ 


042C 


1111 
0000+ 
1112 
0000* 
1113 
0000+ 
1114 
0000+ 
15F6 
0000+ 


003A 
0030 
15F6 
0000+ 


7052 
00000000* 
00000001 

0000+ 

7057 


OO11E 


00140 
00142 
00144 
00146 
00146 
00148 
0014C 
00150 ; 
00152 


F 14 


1eSepm19be 12:40 


; TPASTARGET 
U. 174: WORD 
: TPASTYPE 
U.175: WORD 
: TPASTARGET 
U.176: WORD 
; TPASTYPE 
U.177: WORD 
3 TPASTARGET 
U.178: . WORD 
;GET_PROT 
U.67: -BLKB 
; TPASTYPE 
U.179: WORD 
GET_PROT_CLASS 
~BLKB 
3 TPASTYPE 
U.183: WORD 
; TPASTARGET 
U.185: .WORD 
; TPASTYPE 
U.189: .WORD 
s TPASTARGET 
U.191: . WORD 
3 TPASTYPE 
U.195: WORD 
s TPASTARGET 
U.197: .WOR 
3: TPASTYPE 
U.201: .WORD 
3 TPASTARGET 
U.203: .WORD 
; TPASTYPE 
U.204: .WORD 
3; TPASTARGET 
U.205: .WORD 
;GET_SYS_PRO 
U.184: BLK 
; TPASTYPE 
U.207: .WORD 
s TPASTYPE 
U.208:  .WORD 
s TPASTYPE 
U.209:  .WORD 
3 TPASTARGET 
U.211: WORD 
GET_SYS_PRO1: 
-BLKB 
; TPASTYPE 
U.212: WORD 
3; TPASADD 
U.213: LONG 
; TPASMASK 
U. 214: .LONG 
: VOAgTARGE! 
U.215: .WO 
; TPASTYPE 


S) MGS 
<<GET_FLAGTYPE=U.174>=2> i 
4137 ee 
<<U.73-U.176>-2> : 

5164 ; | 
<<GET_KEYWORD-U.178>=-2> : | 
0 

1068 : 

4369 : 
<<U.184-U.185>=2> i 

4370 : 
<<U.190-U.191>=2> : 

4371 : 
<<U.196-U.197>-2> : 

4372 : 
<<U.202-U.203>-2> : 

5622 3 
<<GET_KEYWORD-U.205>-2> : 

0 

58 : 

61 : 

5622 : 
<<U.210-U.211>-2> : 

0 

28754 : 
<<SYSTEM_PROT-U.213>-4> : 

1 : 
<<GET_SYS_PRO1-U.215>=2> : | 


SYSACLSRV 
v04- SPARSE_ACL system service 


00000000* 
00000002 
0000* 
7045 
00000000* 
00000004 
0000+ 
7044 
00000000* 
00000008 
0000* 
7043 
00000000* 
00000010 
0000* 
15F6 
0000+ 


003A 
0030 
15F6 
0000+ 


7052 
00000000* 
00000001 

0000* 

7057 


00154 
00158 
0015¢ 
0015€ 
00160 
00164 
00168 
0016A 
0016C 
00170 
00174 
00176 
00178 
0017C 
00180 
00182 
00184 
00186 
00186 
00188 
0018A 
0018C 
0018E 
0018E 
00190 
00194 
00198 
0019A 


14 
$ep-1984 01:51: 
16- -Sep-1 1982 2:40: 
U.21 ~ WORD 
s TPA ADDR 
U.217: LONG 
AL pas 
U.218: .LONG 
3 TPASTARGET 
U.219: WORD 
3; TPASTYPE 
U.220: .WORD 
3; TPASADDOR 
U.221: .LONG 
s TOASMASK 
U.222: .LONG 
A Mert 
U.223: .WORD 
; TPASTYPE 
U.224: WORD 
3; TPASADDR 
U.225:  .LONG 
3; TPASMASK 
U.226: .LONG 
3: TPASTARGET 
U.227: WORD 
; TPASTYPE 
U.228: .WORD 
3; TPASADDR 
U.229: .LONG 
3; TPASMASK 
U.230: .LONG 
3; TPASTARGET 
U.231: . WORD 
s TPASTYPE 
U.232: . WORD 
cep tanes’ 
U.233: .WORD 
;GET_OWN. PRO 
U.196: BLKB 
3 TPASTYPE 
U.234: . WORD 
pTBagTYPE 
U.235: .WORD 
3; TPASTYPE 
U.236: . WORD 
pTORSTARGEY 
U.237: WORD 
GET_OWN_PRO1: 
BLKB 
a Teasty E 
U.238: .WORD 
3; TPASADDR 
U.239: .LONG 
; TPASMASK 
U.240:  .LONG 
: TPASTARGET 
U.241: WORD 
TORT Pe 
U.242: Ww 


3} Ax-11 at a PY V4.0-74 
LOADSS.SRCJSYSACLSRV.B52;1 


28759 
<<SYSTEM_PROT=U.217>=4> 
2 
<<GET_SYS_PRO1“U.219>-2> 
28741 
<<SYSTEM_PROT=U.221>=4> 
4 
<<GET_SYS_PRO1-U.223>-2> 
28740 
<<SYSTEM_PROT=-U.225>=4> 
8 
<<GET_SYS_PRO1-U.227>-2> 
28739 
<<SYSTEM_PROT-U.229>-4> 
16 
<<GET_SYS_PRO1-U.231>=2> 
5622 

<<U.210-U.233>-2> 

0 

58 

61 

5622 

<<U.210-U.237>-2> 

0 

28754 
<<OWNER_PROT-U.239>-4> 

1 
<<GET_OWN_PRO1-U.241>-2> 
28759 


SYSACLSRV 
V0e-000 


SPARSE_ACL system service 


00000000* 
00000002 
0000+ 
7045 
00000000* 
00000004 
0000+ 
7044 
00000000* 
00000008 
0009+ 
7043 
00000000* 
00000010 
0000* 
15F6 
0000+ 


Q03A 
0030 
15F6 
0000+ 


7052 
00000000* 
00000001 

0000* 

7057 
00000000* 


18 ue 1984 01:51 
-3ep- H $ 
12-308-138e $3520; 
0019C pToAgADOR 
U.243: .LONG 
001A0 ; TPASMASK 
U.244: LONG 
001A4 sy Maat! 
U.245: WORD 
001A6 ; TPASTYPE 
U.246: .WORD 
001A8 AE agaoon 
U.247: LONG 
OO1AC ; TPASMASK 
U.248: .LONG 
001B0 ; TPASTARGET 
U.249: WORD 
001B2 ;TPASTYPE 
U.250: .WORD 
001B4 ; TPASADDR 
U.251: .LONG 
001B8 ; TPASMASK 
U.252: .LONG 
001BC ; TPASTARGET 
U.253: .WORD 
OO1BE ; TPASTYPE 
U.254: .WORD 
001CO ; TPASADDR 
U.255: .LONG 
001C4 ; TPASMASK 
U.256: .LONG 
001C8 ; TPASTARGET 
U.257: .WORD 
OO1CA ; TPASTYPE 
U.258: .WORD 
OO1CC ; TPASTARGET 
U.259: .WORD 
QO1CE ;GET_GRP_PRO 
U.198: [BLKB 
OO1CE ; TPASTYP 
U.260: .WORD 
001D0 ; TPASTYPE 
U.261: . WORD 
001D2 ; TPASTYPE 
U.262: .WORD 
00104 ; TPASTARGET 
U.263: .WORD 
00106 GET_GRP_PRO1: 
-BLKB 
001D6 ; TPASTYPE 
U.264: WORD 
00108 pTDABADOR 
U.265: .LONG 
001DC ; TPASMASK 
U.266: .LONG 
Q01EO ; TPASTARGET 
U.267: . WORD 
001E2 p ToaatvPe 
U.268: .WORD 
QO1E4 ; TPASADDR 


SL Uabh SUdeHsTEAtte 87 
<<OWNER_PROT=U.243>-4> 

2 
<<GET_OWN_PRO1-U.245>=2> 
28741 
<<OWNER_PROT=U.247>=4> 

4 
<<GET_OWN_PRO1-U.249>=2> 
28740 
<<OWNER_PROT=-U.251>-4> 

8 
<<GET_OWN_PRO1-U.253>-2> 
28739 
<<OWNER_PROT-U.255>=4> 
16 
<<GET_OWN_PRO1-U.257>-2> 
5622 

<<U.210-U.259>=2> 

0 

56 

61 

5622 

<<U.210-U.263>-2> 

0 

28754 
<<GROUP_PROT-U.265>-4> 

1 
<<GET_GRP_PRO1-U.267>-2> 
28759 
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00000002 
0000+ 
7045 

00000000* 

00000004 
0000* 
7044 

00000000* 

00000008 
0000* 
7043 

00000000* 

00000010 
0000* 
15F6 
0000* 


003A 
0030 
15F6 
0000+ 


7052 
00000000* 
00000001 

0000+ 

7057 
00000000* 


OO1E8 ; 
OO1EC 
OO1EE 
001F0 
OO1F4 
001F8 
OO1FA 
OO1FC 
00200 
00204 
00206 


00214 

00216 

00216 

00218 
QO21A 
0021C 
0021E 
OO21E 
00220 
00224 
00228 
0022A 
0022C 
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a 
oO 
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TYPE 


BWPMNPAOMN NSS 


TYPE 


AX-11 Bliss-32 V4.0 
LOADSS.SRC SYSACLSRV. if 231 


<<GROUP_PROT=U.269>=4> 

2 
<<GET_GRP_PRO1*U.271>-2> 
28741 
<<GROUP_PROT=U.273>=4> 

4 
<<GET_GRP_PRO1-U.275>=2> 
28740 
<<GROUP_PROT-U.277>-4> 

8 
<<GET_GRP_PRO1-U.279>=2> 
28739 
<<GROUP_PROT-U.281>-4> 
16 
<<GET_GRP_PRO1-U.283>-2> 
5622 

<<U.210-U.285>-2> 

0 

58 

61 

5622 

<<U.210-U.289>-2> 

0 

28754 
<<WORLD_PROT-U.291>-4> 

1 
<<GET_WOR_PRO1-U.293>=2> 
28759 
<<WORLD_PROT-U.295>=4> 
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vou~000 SPARSE_ACL system service 12280871982 93:25:23 EbSaassPSReisysatcgav 69251 Page 2f 
00000002 00230 grees, , 
spel arpa 6158 vane ORD <<GET_WOR_PRO1-U.297>=2 
S 2 -U. >-2> : 
7045 00236 pToagtvre en. 
U.29 eWORD 28741 : 
— 568 en ons <<WORLD_PROT-U.299>-4 
° ° “VU. >=-4> 5 
00000004 0023C ; TPASMASK = 
U.300 -LONG 4 : 
— A Hae <<GET_WOR_PRO1-U.301>-2 
e e “VU. >-c> s 
7044 00242 "80 T We eee 28740 Es 
paeipesnte seine §'30 MOOR ONG <<WORLD_PROT=-U.303>-4 
. . » “VU. >-4> : 
00000008 00248 ; TPASMASK = 
U.304: .LONG 8 : 
0000* 0024C ; TPASTARGET 
U.305: WORD <<GET_WOR_PRO1-U.305>-2> : 
7043 0024E ; TPASTYPE 
U.306: .WORD 28739 : 
00000000* 00250 ; TPASADDR 
U.307: .LONG <<WORLD_PROT-U.307>-4> : 
00000010 00254 ; TPASMASK 
U.308: .LONG 16 : 
0000* 00258 ; TPASTARGET 
U.309: .W <<GET_WOR_PRO1-U.309>-2> 3 
15F6 OO25A ; TPASTYPE 
U.310: .WORD 5622 3 
0000* 0025C ; TPASTARGET 
U.311: WOR <<U.210-U.311>-2> 3 
0025E ;CHK_END_PRO 
U.210: TBLKB 0 
102C O025E ;TPASTYPE 
U.312: WORD 4140 : 
0000* 00260 p TRARTARGET 
U.313: .WORD <<GET_PROT_CLASS-U.313>-2> : 
1429 00262 ; TPASTYPE 
U.314: WORD 5161 3 
0000* 00264 ; TPASTARGET 
-315: WwW <<U.73-U.315>-2> ; 
00266 651 STRING 
U.91: BLK 0 
102C 00266 ; ateagrers atee 
FFFE 00268 ; TPASTARGET 
i. 317: .WORD <2 3 
1029 0026A ;TPA TYPE 
0.31 WORD 4137 : 
FFFE 0026C gists! TARGET > 
11F7 0026E ; TPASTYPE 
U.320: .WORD 4599 : 
FFFE 00270 ; TPASTARGET 
U.321: WORD -2 3 
ODF8 3; TPAS 


stentless aq 
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sting 


SPARSE_ACL system service 


0000* 


19F8 
0000+ 
0000+ 
15F6 
FFFF 


1028 
FFFE 
102C 
FFFE 
1029 
FFFE 
11F7 
FFFE 
15ED 
FFFF 


15F7 
FFFF 


0000+ 
0000* 
0000+ 
0000* 


kK 1 
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00276 ; 
00278 ; 
0027A 


00280 ; 
00282 ; 
oneal | 
00286 
00288 
0028A 
0028¢ 
0028E 
00290 
00292 
00296 
00296 
00296 


00000 A 
00000 
00000 
00002 
00004 
00006 ; 


: WW 
AS*ARGET 
5.330: - WO 


A Ne 
TPASTARGET 
U.332: 


WW 
yPASTARGE! 
U.338: WORD 


ol 
DF PASTARGES 
0.342: .WORD 


~PSECT 


CE_KEY:: 
-BLKB 


; TPASKEYO 
-BLKB 


LOADSS.SRCJSYSACLSRV.B52; 1 


3576 : 
<<U.323-U.324>-2> 3 
0 

6648 : 
<<U.326-U.327>-2> : 
<<U.323-U.328>-2> : 
5622 : 
-1 : 
0 

4139 : 
-2 3 
4140 : 
-2 ‘ 
4137 : 
-2 s 
4599 : 
-2 3 
5613 : 
-1 3 
0 

5623 : 
1 : 


-LIBSKEYOS,NOWRT, SHR, PIC,1 


0 
0 
<U.3-U.1> : 
<U.11-U.1> : 
<U.19-U.1> : 


Hr 
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if: Sep-19 4 12:40:5 LOADSS. SRCJSYSACLSRV.B32; 1 = (4) 


STAC SRY 
v04- SPARSE_ACL system service 


U.27:  .WORD <U.26-U.1> : 
0000* 00008 ; TPASKEY 

U. : WORD <U.33-U. 1 > P 
0000* OO00A ; TPASKEY 

U.42: ° <U.41°U.1> é 
0000* O000C ; TPASKEY 

.50:  .WORD <U.49-U.1> ‘ 
0000* OO00E ; TPASKEY 

U.62:  .WORD <U.61-U.1> : 
0000* 00012 A oneney 

U.117: .WORD <U.116-U.1> : 
0000* 00014 g TOASKEY 
0000* 00016 ; TPASKEY 
0000* 00018 ; TPASKEY 
0000* OOO1A ; TPASKEY 
0000* OO01C ; TPASKEY 

U.157: .WORD <U.156-U.1> : 
0000* OOO1E gtongner 

0.163: .WORD <U.162-U.1> ; 
0000* 00020 ; TPASKEY 
0000* 00022 ; TPASKEY 
0000* 00024 ; TPASKEY 
000C* 00026 ; TPASKEY 
0000* 00028 i TPASKEY 

0.199: .WORD <U.198-U.1> : 


-PSECT S$PLITS,NOWRT ,NOEXE ,2 


44 41 45 52 00000 P.AAC: wry \READ\ a 

00000004 0004 P.AAB: .LONG : 

00990000" 0008 “ADDRESS P.AAC : 

65 54 49 900¢ P.AAE: “ASCII \WRITE\ : 

0 5 14 P.AAD PONE : 

0090000 0018 ADDRESS P.AAE 

45 54 55 43 45 4 O01¢ P.AAG: “ASCII \EXECUTE\ : 
90000007 024 P.AAF: .LONG 2 ; 

0090000" 028 “ADDRESS P : 

45 56 45 4C 45 44 0002C P.AAL “ASCII \DELETEN : 
9000000 P.AAH: .LONG : 

00000000° “ADDRESS P.AAI : 

4C 4F 52 54 4E GF 4 i P.AAK: Tt YSCOT EG - 
90000007 44 P.AAJ: .LONG 7 : 

00000' 0004 “ADDRESS P.AAK : 


U.56:  .WORD <U.55-U.1> : 
0000* 00010 ; TPASKEY 


Be Se Oe Be Oe Se Oe Se Se Be Se Ge Be Se Se Se Se Se Se Se Se Se Se Ge Se Se Se se Se SH Se Se Se Se Se Se Se Se Se Se Se See Se Se Se Ge Se Se Se eee Fe Fe ee ee we 
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v04- SPARSE_ACL system service 19-808- 1382 93:20:83 LOADS SRE ISYSACL SRV. B21 . (4) 
35 SF 54 49 42 4 P.AAM: ASCII \BIT_5\ : 
‘BLKB 3 
000 9005 4 P.AAL: LONG : 
Q" 8 [ADDRESS P.AAM : 
36 SF 54 49 4 3¢ P.AAO “ASCII \BiT_6\ : 
000 0005 64 P.AAN: LONG : : 
0000 00" “ADDRESS p  AAQ : 
37 SF 54 49 «= dec P.AAQ: “ASCII \BiT_7\ : 
00000005 S074 P.AAP: [LONG : F 
00090009" 0078 “ADDRESS P.AAQ : 
38 SF 54 49 & 7C P.AAS: <ASCII \BiT_8\ : 
0081 “BLKB 3 
90000005 0084 P.AAR: .LONG F 
990000" 0088 “ADDRESS P.AAS : 
39 SF 54 49 4 00 C P.AAU: -:ASCII \BIT_9\ : 
0091 “BLKB 3 
90000005 0094 P.AAT: =LONG : 
0000009" 0098 “ADDRESS P.AAU : 
30 31 SF 54 49 & 009¢ P. AAW: “ASCH \BIT_10\ : 
00000006 O00A4 P.AAV: “LONG : 
00000000' 000a8 “ADDRESS P.AAW : 
31 31 SF 54 49 42 QOOAC P.AAY: -ASCII \BiT_11\ : 
00B2 "BLKB 2 
00000006 00084 P.AAX: .LONG 6 : 
00000000" 00088 “ADDRESS P.AAY : 
32 31 SF 54 49 42 o008¢ P.ABA: <ASCII \BiT_12\ : 
00C "BLKB 2 
00000006 000C4 P.AAZ: <LONG 6 : 
00000000' 000¢8 “ADDRESS P.ABA : 
33 31 SF 54 49 42 OOOCC P.ABC: ‘ASCII \BiT_13\ : 
000d2 “BLKB 2 
00000006 90004 P.ABB: :LONG 6 : 
00000000' 00008 “ADDRESS P.ABC : 
34 31 SF 54 49 42 OO0DC P.ABE: <ASCII \BIT_14\ : 
O0E2 "BLKB 2 
90000006 O0E4 P.ABD: <LONG 6 : 
0000 009" OOES "ADDRESS P.ABE : 
35 31 SF 54 49 42 00 EC P.ABG: ASCII \BiT_15\ : 
OOF *BLKB 2 
00000006 O00F4 P.ABF: <LONG 6 : 
00090009" O0F8 “ADDRESS P.ABG : 
36 31 SF 54 49 4 FC P.ABI: ASCII \BiT_16\ : 
91 2 “BLKB 2 
9000000 104 P.ABH ONG 6 : 
00 9000 * 001 ADDRESS P.ABI : 
37 31 SF 54 49 & P.ABK ASCII \BIT_17\ : 
9000000 114 P.ABJ: “LONG g : | 
009000 * 00118 ADDRESS P.ABK : 
38 31 SF 54 49 & 1 P.ABM “ASCII \BiT_18\ : | 
000 00 124 P.ABL: .LONG g : | 
* 00128 “ADDRESS P.ABM : 
39 31 SF 54 49 4 12C P.ABO: ‘ASCII \BIT_19\ : 
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youn 008 SPARSE_ACL system service 12-808-1 382 93:20:83 LOADS SREISYSACL SRV. B92: 1 wees (ay 
1 .BLKB 
Bo9ge009: 135 feNe ORES P. AB 
30 32 SF 54 49 & 1 P.ABQ: “ASCH \Bit  20\ : 
909 900 144 P.ABP: <LONG : 
0000000" 00148 “ADDRESS P.ABQ : 
31 32 SF 54 49 4 146 P.ABS: “ASCII \BIT_21\ F 
9000000 136 P.ABR: .LONG 3 : 
00900 ' 138 “ADDRESS P.ABS : 
32 32 SF 54 49 & 13¢ P.ABU: <ASCII \eiT_22\ : 
00900006: 168 ART ADDRESS PAB 
3332 SF 54 49 G 16 P. ABW “ASCII \eit 33, : 
SHES, ISIE Pmt: Ua 2 
34 32 SF 54 49 4 0017¢ P.ABY “ASCII \eit 24\ ; 
SNES, SST P08: Eb any 2 
35 32 SF 54 49 ¢ 0018¢ P.ACA “ASCII yBiT_25\ : 
SNES. IRIE PEs AIRE by 2 
36 32 SF 54 49 8 0019¢ P.ACC: -ASCII \eiT_26\ : 
80000000" OO1A8 Ne “hON chp ACC 
37 32 SF 54 49 42 O9tac P.ACE “ASCII yeit_27\ : 
00900009: 00188 PACD s TADDRESS. PAC 
38 32 SF 54 49 4 918¢ P.ACG: ASCII \Bit 5 8\ : 
SSIES, SBE PCTs Ash ac ! 
39 32 SF Sh Ao A aoice P.ACI: <ASCII Bit 29 2 | 
9000000 01D4 P.ACH: <:LONG 6 : 
0 09000 * 00108 “ADDRESS P.ACI : 
30 33 SF 54 49 & 1p¢ PACK: -ASCII \BIT_30\ : 
0000000 1E4 P.ACJ: LONG : 
0009000 * OO1E8 “ADDRESS P.ACK : 
31 33 SF 54 49 & Hf P.ACM: ASCII \BIT_31\ : 
0 1F4 P.ACL: LONG : 
* OO1F8 “ADDRESS P.ACM : 
0° 00000000" 0000 . ‘ 1FC P.AAA ADDRESS P.AAB, P.AAD, P.AAF, P.AAH, P.AAJ, = : 
' ' 0 ' * 00214 P.AAL, P.AAN, P.AAP, P.AAR, P.AAT, P.AAV, = : 
: ' 26 P-AAX, P.AAZ. P.ABB. P.ABD. P.ABF. P.ABH. = : | 
000 ' 00 0 ' ' ’ P-ABJ. P.ABL, P.ABN, P.ABP. P.ABR. P.ABI. - ; | 
' ' ' ' 3¢ P- ABV, P.ABX, P.ABZ. P.ACB. P.ACD. P.ACF. = : 
' * 00274 P-ACH. P.ACJ. P.ACL : | 


<v 
ox 


ae eee ee ee ee ae oe ee ee ee ee ee ee ee ee ee ee ee eee ee 
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SYSACLSRV 
voe-008 ee a 


st 


SPARSE_ACL system service 


00 


00000 


00001 
00004 


00204 
00208 
0020C 
00210 
00214 
00218 


0021C 
00224 


00228 


-PSECT SOWNS,NOEXE,2 


JOURNAL _ACES: 
BYTE 


Wo 


-BLK 
ACE_BUFFER: 
ACE_INDEX: 
ACE_TYPE: 
ACE_RIGHTS: 
UIC_FLAGS: 
UIC_COUNT: 

BLK 
IDENTIFIER: 

BLK 


ID_NAME: .BLKB 
ID-COUNT: 


‘i -BLKB 
JOURNAL _NAME : 


512 


LK 
00230 ACCESS FLAGS: 
00234 SYSTEM_PROT 
00238 OWNER_PROT: 


- ££ wo fF wr fF FF KF 


4B 43 GF 4C 24 4 43 44 0 4 BACB: ms \ACLSLOCK\ ; | 
SSSGBRE. S838 FACE LINE oo ag 7 
SF 4C 49 46 26 GC 4 003 gC BeACR: “ASHI \ACLSFIL_\ : 
20990000" 6 ” Pera “ADDRESS P.ACR ; 
SF 56 45 464 26 AC ohSoo$ 3¢ RA ASCII \ACLSDEV_\ : 
00990000" AB —-~——s« ADDRESS. PACT : 
SF 43 42 GA 24 4C 43 41 OO2AC P.ACV: ASC] I \ACLSJBC_\ F 
SSSSBE. BBS PACU che ay 7 
SF 46 45 43 24 4€ 3 4 8 BC P.ACKX: ASCtI \ac tSCEF \ : 
SSOGOEE, $88 FMCW asco ax : 
SF 54 GE 4C 24 4 nig al 0 cc B-ACZ: aaa \ACLSUNT.. \ : 
a0900000" $0 D8  —— CADDRESS P.ACZ ; 
SF 43 52 50 24 se ob S ohh 00 DC p - ADB: “ASCII \ACLSPRC_\ : 
00090000" $8 £8 - ——-C ADDRESS P.ADB : 
SF 4C 42 47 26 4c a3 ah 00 EC PADD: “ASCH Sabet \ : 
00000000' b05F8 " TADDRESS P.ADD F 
00000000" 00000000" 00000000" 00000000' 00 0000" 90000000" d0gkC P.ACN: pn Re ACO, P-ACS, P.ACU, P.ACW, ~ : 
59 54 49 52 55 43 45 53 OO31C P.ADE: .ASCII NSECURITY ; 


Se Be Se Be Se Ge Be Se Be Se Ge Se Se Be Ge Be Se Ge Be Se Se Ge Ge Ge Se Se Se Se Se Se Se Se Se Se Se ae Fe Se Se Ge Se Se See Se Se Se Se Se Se Geese Se SH Se Se we 


| 


ea IIH Rh UNCUT Rh 


SPARSE_ACL system service -Sep- LOADSS.SRC Sate 


.BLKB 
0023C GROUP_PROT: 


BL 
00240 WORLDPROT: 
00244 BIT_NAME TABLE: 
00248 CHANGE _ACHODE : 
0024¢ CALL ACHODE : 
00250 PARENT.ID: 
00254 ACL_QuEUE HEAD: 
00258 ACL POINTER: 
0025C ACL_SPLIT: 

BLK 
00260 ACE POINTER: 
00264 ACE_NUMBER: 
00268 ACL_AREA: 

-BLK 
00468 ACL CONTEXT: 
0046C LOCK_RESNAM: 
00474 RESNAM_TEXT: 

.BLKB 


Pe ae Se SS Se 


DEFAULT BITS= P.AAA 
LOCK_PREF IX= P.ACN 
-EXTRN ACL_ADDENTRY, ACL_DELENTRY 


R “ ACL_ACLL 
“EXTRN ACL “READACE ACL ~LOCATEACE 
TEXTRN ACL INIT QUEUE, ALLOC_PAGED 
"EXTRN DALCOC PAGED: Er IBSTPARSE 
TEXTRN LIBS$FIO_TO_NAME 

*EXTRN tIBSGET~ VM; LIBSEREE vm 
“EXTRN EXESPROBER, PROBEW 
*EXTRN Ooe Sve RI PR euane SEE RSLOCKR 
*EXTRN sot stocku SCHSUNLOCK 

-EXTRN CTLSGL_PCB, LIBS$_SYNTAXERR 


-PSECT SCODES,NOWRT,2 


007C 00000 -ENTRY SYSS$PARSE_ACL, Save R2,R3,R4,R5,R6 3; 0616 
56 00000000' cf % 0002 MOV JOU URNAL , RO : 
5E 4 ¢ 009 SUBL $ 
\f A6 D4 or CLRL BIT "NAME 1 E ; 0676 
50 1 C 0 F MOVL BIT “TABLE, 3; 0677 
Of 1 0 \3 BEQL 3 
60 0100 = 8F 0 OC 0001 PROBER » #256, (RO) ; 0678 


ee ee ee ee ee ee as “| 
1 D 15 
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yoe-O008 SPARSE_ACL system service 12-808- 1382 ON: 2hi 84 AUADSS SRETSTSAtC éev. BS251 . be 
1 18 BEQL «6-2 : 
1¢ Ab 38 3 8 MOVL. RO, BIT_NAME_TA + 0679 
0200 8F 00 6E ate 00 Be 0 } 1$: MOVCS #0, (SPT, #07 a5, ACE_BUFFER : O67? 
£6 A6 7C 00028 CLRQ = ACE_TYPE + 0685 
of Ab bd 00 ; CLRL ACE INDEX : 
EB a6 7C 000 CLRO UIC7FLAGS + 0686 
FC AB D4 38 4 CLRL 1D_COUNT : 0687 
FE =A6 BS 00037 CLRW  ID"NAME > 0689 
66 Be 003A CLRW JOORNAL_NAME : 
14 AB 7C 0003C CLRQ  GROUP_PROT : 0690 
19 Ab D4 00 F CLRL § OWNERPROT : 
08 A6 7C ae CLRG_ ACCESS _FLAGS + 0688 
24 00 6E 09 2c oi 9 MOVCS #0, (SP), #0, #36, TPARSE_BLOCK 3: 0692 
6E OB DO 00048 OVL. #8, TPARSE_BLOCK > 0693 
04 AE 02 88 OO04E BISB2 #2, TPARSE~BLOCK+4 + 0694 
54 04 AC b0 0005 MOVL CL_STRING, R4 + 0695 
64 08 00 g 00056 PROBER #0, #8, (R4) : 
1C 13 OO05A BEQL : 
50 64 3¢ 0005C MOVZWL (R4), RO + 0698 
08 AE 50 DO 0005F MOVL RO, TPARSE BLOCK+8 : 
55 50 DO 00063 MOVL RO, ACL_STRING_LEN : 
50 04 A& DO 00066 MOVL 4(R4), RO : 0699 
51 55 DO 0006A MOVL §ACL_STRING_LEN, R1 : 
53 D4 00060 CLRL sR : 
000000006 00 16 0006F JSB EXESPROBER ; 
03 50 58 00075 BLBS RO, 3$ : 
017E 31 00078 a8: BRW : 
OC AE 04 Ad DO 00078 3$: MOVL  4(R4), TPARSE_BLOCK+12 : 0700 
00000000" EF 9F 00080 PUSHAB ACE_KEY + 0705 | 
00000000" EF 9F 00086 PUSHAB ACE-STATE ; 
08 AE 9F 0008C PUSHAB TPARSE BLOCK : 
000000006 00 03 FB 0008F CALLS #3, LIBSTPARSE ; 
51 Oc ac b9 00096 MOVL § ERROR_POSITION, R1 : 0709 
0B 13 0009A BEQL ; 
61 02 00 op 0009¢ PROBEW #0, #2, (R1) : 0710 
D6 13 OOOA0 BEQL. 2 : 
61 55 08 AE A3 OOOA SUBW3  TPARSE_BLOCK+8. ACL_STRING_LEN, (R1) + 0712 
000000006 8F 50 01 000A 4$: CMPL STATUS; #LIBS$_SYNTARERR : 0718 
44 13 000A BEQL «6s iB ; 
EO A6 03 9008 TSTL  ACE_TYPE : 0719 
F 13 0008 BEQL sa : 
05 0 Eg 9008 BLBC STATUS, 5$ : 0720 
08 Ag D5 000 TSTL § TPARSE.BLOCK+8 ; 
14 90088 BGTR ; 
01 0 £8 9080 5$: BLBS STATUS, 6$ : 0723 
4 990¢ RET ; 
FDDD 6 EO Ab 30 OC 6$: MOVB ACE_TYPE, ACE_BUFFER+1 : 0727 
50 FDDE C6 C7 MOVZ2WL ACE"BUFFER+2, RO : 0729 
50 - A6 C ¢ BIS VIC7FL rb ; 
FDDE (6 50 A6 A BISW3 ACCESS FLAGS, RO, ACE_BUFFER+2 : 0730 
FDEO C6 E46 A6 DO Op ACE_RIGHTS, ACE_BUFFER+4 : 0731 
98 91 EO Ag CF bp CASEL ACE~TYPE, #1, #8 : 0736 
0039 00 00 9 01 02 7$ WORD 9-78 - F 
009F 09F 061 061 OEA 108- $,- : 
08C 00F 2 10$-7$.- ; 
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SYSACLSRV ibese -1984 01:51: AX-11 Bliss-32 V4.0-74 Pa 
vou~000 SPARSE_ACL system service 12=808=138e 93:20:83 LOADSS.SRCJSYSACLSRV.B352;1 - 
10$-7$,- 
11$-7$.- 
11$-7$.- 
14$-7$.- 
14$-7$.- 
13$-7$ 
008A 31 O00F4 8s BRW 14$ 
08 A6 DS O0OF7 9$ TSTL ACCESS_FLAGS 
F if OOFA BNEG = «BS 
66 85 OOOFC TSTW JOURNAL NAME 
F4 if OOF BNEQ 
01 EC AB OD 91 CMPL UIC COUNT, . 
7B 14 001 BGTR 4$ 
DC AG b3 0106 TSTL  ACE_INDEX 
76 13 00109 BEQL 
50 pc A 0 00108 MOVL § ACE_INDEX, RO 
51 50 08 0010F ASHL , RO, R 
FDDC §=s C6 51 08 81 00113 ADDB3 #8, R1, ACE_BUFFER 
51 11 00119 BRB 
61 FDD8 C6 £9 0011B 10$: | BLBC  JOURNAL_ACES, 14$ 
EC A6 D5 00120 TSTL UIC_COUNT 
5C Ne 00123 BNEQ 14 
FC AB DS 00125 TSTL §_ID_COUNT 
57 12 00128 BNEQ 148 
08 A6 DS O012A TSTL  ACCESS_FLAGS 
52 if 00120 BNEQ 14 
E4 Ab D5 O012F TSTL  ACE_RIGHTS 
4D if 00132 BNEQ 4$ 
FDEO 6 04 86 66 28 00134 MOVC3 JOURNAL_NAME, @JOURNAL_NAME+4, ACE_BUFFER+4 
FDDC 6 55 04 81 00138 ADDBS #4, JOURNAL_NAME, ACE_BUFFER 
29. 11 00141 BRB 
EC Ad D5 00143 118: TSTL -UIC_COUNT 
39 if 00146 BNEG 14$ 
FC Ab DS 00148 TSTL _ID_COUNT 
34 12 00148 BNEQ 
08 66 B1 0014D CMPW JOURNAL_NAME, #8 
2F 12 00150 BNEQ 14$ 
00 00000000" EF 08 2D 90152 CMPCS #8, P.ADE, #0, JOURNAL_NAME, - 
04 BS 0158 @JOURNAL _NAME +4 
2 2 0150 BNEQ 
FDES C6 04 B86 66 j 015F MOVC3 JOURNAL_NAME, @JOURNAL_NAME+4, ACE_BUFFER+8 
FDDC (6 66 08 1 00166 ADDBS #8, JOURNAL_NAME, ACE_BUFFER 
6 11 0016¢ 128: BRB 6$ 
08 A6 D O16 13$: TSTL  ACCESS_FLAGS 
OE 1 1 BNEG 14$ 
66 85 0017 TSTW § JOURNAL_NAME 
OA 1 O17 BNEQ 14$ 
EC A6 D5 0017 TSTL UIC_COUNT 
05 12 OO17A BNEQ 14$ 
FC Ob OD gize TSTL 1p COUNT 
6 1 17F BEQL t 
50 2164 BF 3 1 14$ MOVZWL #8676, RO 
OC A Oc A6 D2 00187 15$:  MCOML SYSTEM_PROT, SYSTEM_PROT 
1B 0 00 FO 001 INS #0, #5; #27, SYSTEMPROT 
10 A 10 A6 D2 001 MCOML OWNER PROT, OWNER PROT 
18 0 00 F 19 INSV. #0, #5, #27, OWNER_PROT 


Pee See Se Se Ge Se Se Se Se Se Se Se Se Fe Se Fe Se Se Se Se Se Ge Fe Ge Ge Ge Se Be Se Se Be Fe Ge Se Be Se Ge Fe Se Be Be Se Se Se Se Ge Fe Ge Se Fe Se He Be Se Be 
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SYSACLSRV 16-Sep-1984 01:5 AX-11 Bliss-32 V4.0 Page 36 SY 
V2 000 SPARSE_ACL system service 12: -Sep- ats vi 933203 24 LOADSS.SRC SYSACLSRV. 382: 37 s (4) vO 
FES C6 0¢ Ab 7D 0019 MOVQ = SYSTEM_PROT, ACE_BUFFER+8 : 786 
es 14 Ab D2 OO1A MCOML GROUP PROT, GROUP PROT + 079 
14 Ab 1B 0 00 F 1A INSV. #0 #2?, GROUP PROT + 0791 
18 «OA 18 ab D2 OO1A MCOML WALD Brot.’ WOR LD PROT + 0793 | 
18 Ab 1B 0 00 F 1B INSV 5, #27, WORLD PROT + 0794 
FDEC C6 14 Ag 7D 0018 MOVa = GR ROUP peor “ate RBUFFER?16 + 0792 
FDDC £6 18 90 001BF MOVB #24, ACE + 0796 
4 08 AC 00 001C4 16$:  MOVL ACL /ENTR Eye ae + 0804 
64 08 90 o¢ 1¢8 PROBER # » (RO) : 
B 13 001CC BEQL : 
51 64 3C OOICE MOVZWL (RA) ACL_ENTRY_L + 0807 
51 FDDC C6 08 00 FD 0191 CMPZV #8, ATE NBUFFER” ACL_ENTRY_LEN : 0808 
1F 1A 00108 BGTRU ; 
50 04 A& DO OO1DA MOVL  4(R4), RO + 0809 
53 4 O1DE CLRL : 
000000006 00 16 OOiE JSB EXESPROBEW : 
10 0 + 0166 BLBC ; 
50 FDDC £6 A 001E9 MOVZBL ACE_BUFFER, RO + 0810 
64 00 FDDC «66 2c OO1EE MOVCS RO, ACE_BUFFER, #0, (R4), @4(R4) + 0811 
04 84 OO1F F 
04 11 001F7 BRB 18$ : 0810 
50 OC DO 001F9 17$:  MOVL #12, RO > 0814 
04 OO1FC RET ; 
50 01 DO OO1FD 188 MOVL #1, RO + 0816 
04 00200 RET + 0818 


; Routine Size: 513 bytes, Routine Base: S$CODE$S + 0000 
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; G23 0819 1 ZSBTTL ‘SFORMAT_ACL system service' 

> 824 0820 1 GLOBAL ROUTINE SYSSFORMAT_ACL (ACL_ENTRY, ACL_LENGTH, ACL_STRING 

; 8 2 08 1 LINE SWIOIN, TERM_DESC, LINE_INDENT, 

s Ger 08 : 1 e 

; 828 0824 1 !++ 

3 Gey 0825 1! 

; Ht Be § } : FUNCTIONAL DESCRIPTION: 

3 He 0828 1! This routine converts the Access Control Entry from a binary form 
; 0829 1! to a text form. 

; te 0830 1! 

; @3> 0831 1 ! CALLING SEQUENCE: 

; S39 tt : SYSSFORMAT_ACL (ARG1, ARG2, ARG3, ARG4, ARGS, ARG6, ARG7) 

; 838 0834 1 ! INPUT PARAMETERS: 

; 839 0835 1! ARG1: address of the input buffer descriptor 

; 840 0836 1! ARG4: address of the maximum Line width for formatting 

> 841 0837 1! ARGS: address of the one Line segment terminator descriptor 
: ecg 0838 1! ARG6: address of the number of columns to indent each Line segment 
; «84 0839 1! ARG7: address of an access bit name table 

> 844 0840 1! 

; 845 0841 1 ! IMPLICIT INPUTS: 

; 846 bas . 2 none 

: 847 0843 1! 

; 848 0844 1 ! OUTPUT PARAMETERS: 

: 849 0845 1! ARG2: address of a word to get the Length of the formatted ACE 
3 ge peee ! ARGS: address of the output text buffer descriptor 

3 S26 0848 1 ! IMPLICIT OUTPUTS: 

; 8 0849 1! none 

; 854 0850 1! 

s Oo 0851 1 ! ROUTINE VALUE: 

; 856 0826 1! NORMAL : The conversion was successful. 

; 857 0853 1! SS$_NOSUCHID: The identifier specified in the ACE is not in the 
; 858 0854 1! rights database. 

; 859 0855 1! SS$_BUFFEROVF: The conversion was successful. The formatted ACE 
; 860 0856 1! has overflowed the output buffer and has been 
: 861 0857 1! truncated. 

: £66 0858 1! 

; 86 0859 1 ! SIDE EFFECTS: 

; 864 0860 1! none 

>; 865 bees : 

; 9 bpe8 1 

; 868 0864 BEGIN 

; 869 0865 

; 870 0866 MACRO CHECK_WIDTH (TEST_WIDTH) = 

: 871 M 086 N 

; a M 94: IF .WIDTH GTRU O 

: 7 M 086 AND .LINE_SIZE + TEST_WIDTH GTRU .WIDTH 

: 874 is + tA THEN 

; 875 M 0871 BEGIN 

3 76 i) % IF .TERM_LENGTH GTR 0 

: 77 4 087 THEN 

: 878 M 0874 BEGIN 

; 879 M 0875 CHSMOVE (.TERM_LENGTH, .TERM_POINTER, BUFFERC.SIZE)); 
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: geo 2 0 76 pize = .SIZE + .TERM_DESCCDSCSW_LENGTHI; 

: HY i. o A CHSFILL (2C° *, . INDENT, BUFFERC.SIZEJ); 

; 88 M 087 SIZE = .SIZE + . INDENT; 

H See M 0880 LINE_SIZE = .INDENT; 

; 885 M 088) END; 

; 886 m 0 g LINE_SIZE = .LINE_SIZE + TEST_WIDTH; 

; 887 mM 08 END 

; 888 0884 z, 

; 889 0885 

; 890 ™ 0886 STORE_TEXT (STRING) = 

; #891 M et BEGIN 

; 89 M 0888 CHECK_WIDTH (XCHARCOUNT (STRING)); 

; M 0889 CHSMOVE (XCHARCOUNT (STRING), UPLIT (STRING), BUFFERC.SIZE]); 

> 894 M 0890 SIZE = .SIZE + ZCHARCOUNT (STRING); 

; 895 Mm 0891 END 

; 896 089 i, 

; 897 089 

; 898 M 0894 NEW_LINE = 

; 899 Mm 0895 B 

; 900 M 0896 IF .TERM_LENGTH GTR 0 

> 901 Mm 0897 THEN 

; 208 Mm 0898 BEGIN 

; 90 m 0899 CHSMOVE (.TERM_LENGTH, .TERM_POINTER, BUFFERCL.SIZEJ); 

: 904 m 0900 SIZE = .SIZE + .TERM_LENGTH; 

; 905 M 0901 END; 

; FOO m 090 CHSFILL (%C° *, . INDENT, BUFFERC.SIZE]); 

; 907 m 090 SIZE = .SIZE + . INDENT; 

; 908 M 0904 LINE_SIZE = .INDENT; 

: 909 Mm 0905 END 

: 910 0906 z; 

: 911 0907 

; aig 0908 § MAP 

; wi 0909 ACL_ENTRY : REF SBBLOCK, ' Address of the input descriptor 
> 914 0910 ACL STRING : REF S$BBLOCK, : Address of the output descriptor 
3 a aah TERA_DESC : REF $BBLOCK; ! Segment terminator descriptor 
; 917 091 LITERAL 

; 918 0914 MAX_FAO_LENGTH = MAXU (2 * KGBSS_NAME + 3, ! Max size of 

; 919 0915 ATRSS_FILE_SPEC) : FAO buffer 

; Feo 3318 MAX_FMT_ACE = 30 : Largest ossible formatted ACE 
; 921 091 VOLRAM_SIZE = XCHARCOUNT ("DISKS") + ACESS _VOLNAM + 1; 

: 9S¢ 0918 ! Sizeof full volume name 

; ¥ 9484 

> 924 920 LOCAL 

$ Pee be 1 ACL_ENTRY_LEN, : Length of input ACE buffer 

: 926 9 § LOCAL_ACE : SBBLOCK He 1 al ° ' Loca copy of ACE 

: 927 09 FAO_DESCR : SBBLOCK COSC$C"S_BLNJ, ! FAO output descriptor 
: 928 0924 KEY IDENTIFIER =: S$B8BLOCK " ' Key identifier 

: 929 925 PROT_VALUE, ' Protection value from ACE 

; 9 9 § PROT_FIELD_DSC : REF SBBLOCK ! Addr of protection field name 
> 931 9 PROT BUF : VECTOR C32,6YTEI, i Storage for ASCII protection string 
3 936 928 PROT IDX, ! Index into protection string 
; 93 929 BUFFER : VECTOR CMAX_FMT_ACE, BYTE], 

3; 934 950 ! Temp storage for formatted ACE 
; 935 0931 LINE SIZE, ' Size of the current segment 

3; 4936 0932 SIZE, ! Size of formatted ACE 
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INDENT, ' Number et olumns to indent 
WIDTH, ' width of the Line 
TERM_LENGTH i Size of AAs F string 
TERM” POINTER, i Address of terminator string 
FAO_BESC : SBBLOCK CDSC$C_S_BLNI, ! FAO output descriptor 
F AO_BUF : VECTOR CMAX Pio SCENGTA yTE3., i FAO output buffer 
BIT_NAME_DESC : REF S$BBLOCK, lDescr for access bit name 
FLAGS : BITVECTOR C16), i Flags from AC 
ACCESS_MASK : BYTE, i Access mask in ACE 
AUDIT_MASK : BYTE ! Audit access mask in ACE 
VOLNAR_DESC : $BBLOCK CDSC$C_S_BLN) ' Volume name descriptor 
VOLNAM~ TEXT : VECTOR CVOLNAM-STZE, BYTE], | Volume name storage 
FILENAME _DESC : $BBLOCK pscsce $_BLNJ i File name descriptor 
FILENAME-TEXT : VECTOR CATRSS FICE SPECI, i File name storage 
ACL_STRING LEN, ' Length of ACL string buffer 
LOCAL_STATOS; ' Local routine return status 

! Protection code names. 

BIND 
PROT_CODE o Wilt OFT t*e*. “, *e*, "6 


REP ’27'of (ODS : vecTOR’ C. BYTE); 

! Probe the output string buffer. 

— (ZREF (0), ZREF (DSCSC_S_BLN), .ACL_STRING) 
REC STRING. LEN 
IF EXESPR OBEW (0, . 
THEN CHSFILL (xc* é, 
oy RETURN SS$_AC CVI 
ELSE RETURN SS$_ACCVIO; 
! Set up initial parameters. 
INDENT = WIDTH = 0; 
TERM_LENGTH = TERM POINTER = 0; 
ACCESS_MASK = AUDIT_MASK = 0; 
! Check the optional arguments. 
ire al ine WIDTH NEQA 0 

“2 PROBER (ZREF (0) 

THEN WIDTH = ..LINE 
ELSE RETURN SS$ ACC 
IF .TERM_DESC NEQA 0 

HEN 


STRINGLDSCSU_ LENGTH); 
G_LE L Sthinctosesa POINTER]) 


ACL 
ACE_S 
sit. STRING_LEN, .ACL_STRINGLDSCS$A_POINTER) 


rit EF (4), .LINE_WIDTH) 
0; 


BEGIN 
to (ZREF (0), ZREF (DSCSC_S_BLN), .TERM_DESC) 


BEGIN 
TERM_LENGTH = .TERM DESCLDS SC$W_LENGTH); 
TERM-POINTER = .TERA_DESCCOSCSA_ POINTER); 

IF NOT EXESPROBER (07 .TERM_LENGTH, .TERM_POINTER) 
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994 990 4 THEN RETURN SS$_ACCVIO; 
995 991 END 
338 99 ELSE RETURN SS$_ACCVIO; 
99 99 END; 
998 0994 
999 995 IF .LINE_INDENT NEQA 
000 99 THEN IF PROBER (ZREF 4), .LINE_ INDENT) 
001 99 TH . 
O06 099 EL $_ 
00 099 
004 1000 
005 68) THEN 
006 Os BEG! 
007 00 IF .WIDTH GTR O 
008 THEN (IF .INDENT GTRU .WIDTH THEN RETURN SS$_BADPARAM) 
009 ELSE (IF . INDENT GTRU .ACL_STRING_LEN THEN RETURN SS$_BUFFEROVF); 
a enaaad GTRU MAX_FMT_ACE THEN RETURN SS$_BUFFEROVF; 


! Check to see if an access bit name table was supplied. If so, use it 
! rather than the default table. 


BIT_NAME_TABLE = 0; 

IF [BIT_TABLE NEQA 0 

THEN IF~PROBER (ZREF (0), XREF (256) 
HEN BIT_NAME TABLE = .BIT_TABLE 
ELSE RETORN SS$_ACCVIO; 

! Start building the text ACE. 

CHSFILL (%C° *, . INDENT, BUFFER); 

SIZE = LINE SIZE = . INDENT; 


STORE TEXT ¢° 
If PROBER (ZREF (0), XREF (DSC$C_S_BLN), .ACL_ENTRY) 


Cooo°ooo 

par Peer Der Serer ard 

UFWN—O 
COoooooooo 


Od td od ad ad = OOO OOO 


=—OODNA MNES WN $$ O OONOULS WN SO OODNOUE 


.BIT_TABLE) 


BEGIN 
CLLENTRY LEN = 


Tepe eh ah Nae ar ee 
—SODONAOUVULSWN —OOONG 


E 0 

p (0), REF ¢ 
EN INDENT = ..LINE_INDENT 
SE RETURN SS$_ACCVIO; 

IF . INDENT GTRU 0 
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a eee ee ee ee 
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A .ACL_ENTRYCDSC$W_LENGTH]; 

: IF [ACL ERTRY_LEN GTRU ATRS$S_ADDACLENT THEN RETURN SS$_IVACL; 

3 IF EXESPROBER™(0, .ACL_ENTRY-LEN, .ACL_ENTRYLDSCSA_POINTERJ) 

34 THEN CHSMOVE (.ACL_ENTRY_LEN; .ACL_ENTRYLDSCSA_POINTER], LOCAL_ACE) 

35 ELSE RETURN SS$_ACCVIO; 

7 38 ELSE RETURN SS$_ACCVIO; 
+44 36 ! Convert the ACE type code. 
041 $ CASE .LOCAL_ACECACESB_TYPE] FROM ACESC_KEYID TO ACESC_DIRDEF OF 
be Hy CACESC_KEYID): 
Oe 0 BEGIN 

5 1 ACCESS_MASK = 1; 
046 : STORE TEXT ("IDENTIFIER="); 
047 43 INCR J FROM .LOCAL_ACECACE$V_RESERVED) + 1 TO (.LOCAL_ACECACESB_SIZE) - ACESC_LENGTH + 3) / 4 
049 45 BEGIN 
050 & KEY_IDENTIFIER = .VECTOR CLOCAL_ACECACESL_KEY], .J - 1); 
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: 1051 1047 4 AD DE SEEDS CSW _LENGTHI = MAX_FAO plENGTH; ! Max size of an identifier 
: 1 ‘ 1 4g 4 FAO"DESC DSCSA-POINTER] = FA 10 BUF 

: 10 P1049 4 SFAOL (CTRSTR = SDESCRIPTOR (*!Z1'), 

; 1054 P 1 20 4 OUTLEN = FAO_DESC, 

: 1055 P1051 4 OUTBUF = FAOWDESC 

: 1096 1 2g 4 PRMLST = KEY-IDENTITIER); 

: 10 195 4 CHECK_WIDTH (.FAO_DESCCOSC$W_LENGTH)); 

> 1058 19 ‘4 CHSMOVE (.FAO_DESCCDSCSW_LENGTHI 

: 1059 1055 4 “FAO DESC DSCSA- POINTERS, 

: 1060 1056 4 BUFFERC.SIZE)); 

: 1061 1057 4 SIZE = .SIZE + .FAO_DESCCOSC$W_LENGTH) 

3 1066 1928 4 STORE_TEXT ('+'); 

; 106 1 END; 

> 1064 1060 BUFFERL.SIZE - 1) = XC',’ 

> 1065 1061 END; 

: 1066 106¢ CACE$C_BIJNL, 

: 1067 106 ACESC-ALJ 

: 1068 1064 ACESC~ATJNL: 

+ 1069 1065 BEGIN 

: 1070 1066 IF .LOCAL_ACECACE$B_TYPE) fst. ACESC_BIJNL 

> 1071 1067 THEN STORE_TEXT ('BY_JOURNAL=' 

; 1078 1068 IF .LOCAL ALECACESS Tyre} ket. atesc ALJNL 

: 107 1069 THEN STORE T "AT JOUR 

> 1074 1070 3 IF ML OCAL ALECACESS TYPED. EOL, “Nese _LATJNL 

3: 1075 1071 THEN STORE_TEXT ('AT_J ut NAL= 

: 1076 1072 CHECK _WIDTA (.LOCAL AcE ACESB_ SIZE] - SBYTEOFFSET (ACESL_ACCESS)) 
: 1077 107 CHSMOVE (.LOCAL_ACETAC B SIZE). - ~ SBYTEOFFSET (ACESL_ACCESS), 
: 1078 1074 3 LOCAL oRCELA aCe SL OReess 

: 1079 1075 3 BUFFERE<§ 

: 1080 1076 3 SIZE = .SIZE + SatAL eee SIZE] - S$BYTEOFFSET (ACESL_ACCESS); 
> 1081 1077 3 STORE_TEXT (',°); 

; 1082 1078 END; 

: 108 1079 CACE$C_AUDIT 

+ 1084 1080 ACESC~ALARM): 

> 1085 1081 BEGIN 

> 1086 1082 ACCESS_MASK = 1; 

> 1087 1083 3 AUDIT MASK = 1; 

: 1088 1084 IF .LOCAL ACECACESB. TYPE) EL ACESC_AUDIT 

> 1089 1085 THEN STORE. EXT ('AODIT JOURNAL= 

: 1090 1086 IF .LOCAL_ACECACE$B TYPE) EQL ncesé _ALARM 

> 1091 1087 THEN STOR TEXT (ALARM QURNAL 

3 1092 1088 CHECK WIDTA (.LOCAL_ACE ECACE B.S 74 ACESC_LENGTH); 
> 109 1089 CHSMOVE. ts LOCAL xACELACES B asiee = ACESC _LENGTH, 

; 1094 1990 Loc EACESL_ 

: 1095 1091 BUFFERC. SIZEJ);~ 

; 1096 1098 SIZE = SIZE, -LOCAL_ACECACESB_SIZE] - ACESC_LENGTH; 
; 109 109 STORE_TEXT (*,"); 

: 1098 1094 END; 

: 1099 1095 CACESC_DIRDEF): 

: 1100 1096 BEGIN 

+ 1101 109 STORE_TEXT (° DEFAULT PROTECTION, "); 

; 1108 98 INCR R FROM 0 TO 

+ 1104 1100 4 BEGIN 

> 1105 1101 4 CASE .K FROM 0 TO 3 OF 

: 1106 11 é 4 SET 

: 110 1103 5 (0): BEGIN 
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ROT 
PROT 
END; 

C1]: BEGIN 
PROT CEC 
PROT CRIPTOR C' OWNER: 


| 
| 
| 
| 
ACESL OWN, PROT 
C2]: 
ACESL GRP PROT: 
OR T'GROUP:"); 


(3): BEGIN 
PROT_VALUE = ~ LOCAL 


ACECACESL_WOR PROT): 
oes FIELD_DSt - SDESCRIPTOR : 


T'WORLD: ' 


INCR7J FROM °% TO 31 


DWONAOVESWN “OVO ONOVUESWN—OO0O@ 


BEGIN 
wa CODEC.J] NEQ 0 AND NOT .PROT_VALUE<.J, 1> 


BEGIN 
PROT_BUFC.PROT Pt. = .PROT_CODEC.JJ; 
PROT _ 


| 
PROT _1DX 
—1DX = .PROT_IDX + 1; 


Wn — 


CHECE Muiotn « (.PROT_FIELD_DSCCOSC$W_LENGTH] + .PROT_I 
CHSCOPY ( C.Paot F2ECD pstCbs rps csi _LENGTHJ, .PROT_FIELD tDSchDscsA. POINTER], 


32253235225 52552232 23223223 F 


512 - .SIZE 
Bur FERC. S1ZE}); 
2E + .PROT_FIELD_DSCCOSC$W_LENGTH] + .PROT_IDX; 


END; 
CACESC_JNLIDJ: 


STORE TEX 
CHSFICL ¢ 
CHSFILL (¢ 
CHSFILL (¢ 
Se ge ( 

SCOPY ( 


—_ JOU 


De ek ek tel el tae ee hk oh ah 
CONAW EWN —OOCO-~ 


oo- 


LNAM, LOCAL AcELA 
SIZE, V 

CSu_ cengTaa = CHSP IH 
$A_POINTER] = VOL 

SCS$W_LENGTH) = 
SCSA~POINTER] = 
IBSF1D_TO_NAME 
"); 


L 
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VOLNAM_DE 


VOLNAM_DE 
FILENAME _ 
FILENAM 
LOCAL_STA 


STORE _TEXT 
IF .LOCAL_S 
THEN 


* SPEC: | 


C, LOCAL ACECACEST FID), | 
_DESC, FILENAME_DESCY; | 
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SYSACLSRV 16-Sep-1984 01:51: AX-11 Bliss-32 V4.0-74 Pp 45 
vou 008 SFORMAT_ACL system service 1 ~3ep-19 4 520; 8h LOADSS. SRCISYSACLSRV.B 2:1 — (5) 


TES; 
! Note any special flags applied to the ACE. 
FLAGS = sLOCAL ACECACESW_FLAGS3; 


ONOUS wr — 


79 75 ; IF PROBER (ZREF (0), %REF (DSCSC_S_BLN), .ACL_STRING) 

Bt 5 THEN BEGIN 

Be IF EXESPROBEW (0, .ACL_STRING_LEN, .ACL_STRINGCDSCSA_POINTER]) 
8 THEN CHSCOPY (.S{ZE, BOFFER, 0, .ACL_STRING.LEN, .ACC_STRINGLDSCSA_POINTER]) 
Re ELSE RETURN SS$_ACCVIO 

86 ELSE RETURN SS$_ACCVIO; 
287 IF .ACL_LENGTH REQ 0 
gee THEN IF-PROBEW (ZREF (0), %REF (4), .ACL LENGTH) 

89 N .ACL_LENGTH = .SIZE ELSE RETURN SS$_ACCVIO; 

90 IF .SIZE GTR .ACL STRING 

3 THEN RETURN SS$_BOFFEROVF ELSE RETURN SS$_NORMAL; 

9 
29 
29 

29 
29 
39 


IF .AUDIT_MA 
THEN FLAGS = .FLAGS AND NOT (SFIELDMASK (ACESV_SUCCESS) OR SFIELDMASK (ACESV_FAILURE)); 
IF .FLAGS NEQ 0 

THEN 

TION (ACESV_DEFAULT) J) 

TION (ACESV_HIDDEN) J) 

T1ON (ACESV_PROTECTED) J) 

T 

E 


10N (ACESV_NOPROPAGATE) J) 


SOOCOGDOSCOSO 000000000 0M McD CDCD aD CD CD OD ~~ 


7: 
} = BUFFERL.SIZE): 
'xW,"), 
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! Note the access rights. 
IF .ACCESS_MASK 
THEN 
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BEGIN 
IF ,LOCAL_ACECACESL_ACCESS] NEQ 0 
OR (.AUDIT K 


AND (.COCAL_ACECACES$V_SUCCESS] 
OR .LOTAL_ACECACESV_FAILURE})) 
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SYSACLSRV bese -1984 01:51: AX-11 Bliss-32 V4.0-74 Page 46 
W02-000 SFORMAT_ACL system service ete 95:2 bi8h LOADSS.SRCJSYSACLSRV.B52;1 ° (5) 
> 1336 1 3 3 THEN 

: 1337 1 i BEGIN 

: 1338 1334 4 STORE_TEXT COACCESS="): 

: 39 5 4 INCR J FROM 0 TO 31 

: 1341 1 5 5 BEGIN 

> 134 1338 2 IF_.(LOCAL_ACECACESL_ACCESS])<.J,1> 

> 134 1339 THEN 

: 1344 1340 6 BEGIN 

: 1345 1341 6 IF .BIT_NAME_TABLE NEQA 0 

: 1328 13468 : “9g BEGIN 

: 1304 1344 7 IF PROBER (SREF (0), SREF (DSC$C_S BLN), BIT_NAME_TABLEC.J, 0, 0, 0, 01) 
: 1368 1345 7 THEN BIT_NAME_DESC = BIT_NAME. TABLEC.J, 0, 07 0, 03 

: 1350 1346 7 ELSE RETORN SS$_ACCVIO; 

: 1351 1347 7 IF NOT EXESPROBER (0, .BIT_NAME DESCCDSC C$W_LENGTHI, 

: 1358 1348 7 -B1T_NAME_DESCLDSCS$A_POINTER]) 

3 1327 1368 4 ey RETURN SS$_ACCVIO; 

: 1355 1351 6 ELSE BIT_NAME_DESC = DEFAULT BITSC.J); 

: 1356 133¢ & CHECK WIDTH (TBIT NAME _DESCCDSC$W LENGTH) + 1); 

> 1357 1353 6 CHSMOVE (.BIT_NAME_DESCCDSC$W_LENGTHJ, .BIT_NAME_DESCCDSCSA_POINTER], 
> 1358 1354 6 BUFFERL.SIZEJ); 

> 1359 1355 6 BUFFERC. SIZE + .BIT_NAME -DESCEDSC§u_LENGTHAJ = *4!; 

: 1360 1356 6 SIZE = .SIZE + .BITZNAME-DESCLDSCSW LENGTH] + 1; 

: 1362 1388 2 ew: 

: 1363 1359 4 IF .AUDIT_MASK 

: 1368 1309 ¢ THEN GIN 

: 1366 136 & IF .LOCAL_ACECACESV_SUCCESS] THEN STORE_TEXT ('SUCCESS+'); 

> 1367 1363 5 IF .LOCALTACECACESV-FAILURE] THEN STORE_TEXT (*FAILURE*"); 

: 1368 1368 4 END — 

: 1370 1366 3 ELSE STORE_TEXT (*ACCESS=NONE+'); 

: 1392 am so 

: 137? 126? ; ' Close off the ACE. 
f. 1375 1321 é BUFFERC.SIZE - 1] = %C")'; 

F ELA 1378 2 ! Copy the formatted ACE to the user's buffer and return a size if required. 

: 1379 1325 IF PROBER (ZREF (0), SREF (DSC$C_S_BLN), .ACL_STRING) 

: 1384 1379 § TM Men 

: 138 1378 IF EXESPROBEW (0, .ACL_STRING LEN, .ACL_STRINGCDSC$A_POINTER 

: 138% 1399 THEN CHSCOPY (.SIZE, BOFFER, 0, .ACL_STRING_LEN, .ACC_ OIRINGLDSCSA. POINTER]) 
> 1384 1380 ELSE RETURN ssi _ACCVIO 

: 1385 1381 END 

: 1386 1 8¢ ELSE RETURN sss ACCVIO; 

+ 1387 138 IF .ACL_LENGTH Ed 

: 1388 1384 2 THEN IF PROBEW (ZREF (0), ZREF (4), .ACL_LENGTH) 

+ 1389 1385 THEN ACL LEN GI H = [SIZE ELSE RETURN SS$_ACCVIO; 

; 1390 1 6 IF .SIZE taEE NG NG_LEN 

: 13) 13 f THEN AE TURN sé$ “SOF FEROVF ELSE RETURN SS$_NORMAL; 


SYSACLSRV 16-Sep-19 AX-11 Bliss-32 V4.0-7 Page 47 
y00-008 SFORMAT_ACL system service 14- =Sep- 138 93:25 3 LOADSS.SRCJSYSACLSRV. 8 2;1 . (5) 
; 1393 1389 1 END; ! End of routine SYSSFORMAT_ACL 


-PSECT SPLITS,NOWRT ,NOEXE,2 


25 0324 P.ADF: .ASCII \R\ : 
0 5 sASCII \W\ : 
45 $ “ASCII \E\ : 
44 00 sASCII \D\ : 
Gon 00359 ‘BYTE. OFD7 
00 00 00 38 § 4 P.ADG: ASCII + 0><0> : 
00 3D 52 45 49 46 49 54 4E 45 44 49 00348 P.ADH: ASCII \IDENTIFIER=\<0> : 
49 25 21 00354 P.ADJ: ASCII \!SI\ : 

00357 -BLKB 
00000003 00398 P.ADI: .LONG 3 : 
00000000" 0035¢ .ADDRESS P.ADJ : 
00 00 00 28 00360 P.ADK: ASCII \+#\<0><0><0> : 
00 3D 4C 41 4E 52 55 4F 4A SF 49 42 00364 P.ADL: ASCII \BI_JOURNAL=\<0> ; 
00 3D 4C 41 4E 52 55 4F 4A 5F 49 41 00370 P.ADM: <ASCII \AI~JOURNAL=\<0> ; 
00 3D 4C 41 4E 52 55 4F 4A SF 54 41 O0037C P.ADN: ASCII \AT JOURNAL =\<0> : 
00 00 00 2C 00388 P.ADO: <ASCII \,\20><0 ; 
00 3D 4C 41 4E S2 SS 4F 4A SF 54 49 44 55 si 0038¢ P.ADP: .ASCII \AUDIT_JOURNAL=\<0><0> : 
00 3D 4C 41 4E 52 55 4F GA SF 4D 52 41 4C $0 Bo aac P.ADQ: ASCII \ALARM_JOURNAL=\<0><0> é 
00 00 00 2C OO3AC P.ADR: .ASCII \,\<0><0><0> : 
54 43 45 54 4F 52 50 SF 54 4C 55 41 46 45 44 003B0 P.ADS: <ASCII \OEFAULT_PROTECTION, \<0> ; 
00 2c 4E 4F 49 003BF ; 
3A 4D 45 54 53 59 53 003C4 P.ADU: .ASCII \SYSTEM:\ ; 

003¢B -BLKB 1 
00000007 O3¢¢ P.ADT: .LONG 7 : 
00090000" 99 DO .ADDRESS P.ADU ; 
3A 52 45 GE 57 4F 00304 P.ADW: .ASCII OWNER: \ : 
00000006 003DC P.ADV: .LONG 6 F 
00990000 00360 -ADDRESS P.ADW : 
3A 50 55 4F 52 47 OO3E4 P.ADY: ASCII \GROUP:\ ; 

O3EA .BLKB 2 
00000006 OO3EC P.ADX: <LONG 6 : 
00000009" 03FO .ADDRESS P.ADY ; 
3A 44 4C 52 4F O3F4 P.AEA: ASCII \WORLD:\ ; 

0 FA BLKB 

60000006 FC P.ADZ: .LONG : 
00000000" 00400 -ADDRESS P. A A ; 
0 99 00 Q 0404 P.AEB: .ASCII ><0><0> ; 
2 464 49 SF 4C 41 GE 52 55 GF GA SF 4D 3 0408 P-AEC: .ASCII \RNS » JOURNAL. ID, \<0> ; 
09 00 00 24 48 53 49 44 418 P.AED: . ASCII \DISK$\<0><0><0> ; 
See cuouneas & @& & §$ 4F 4A 4 : P.AEE: . ASCII \JOURNALED_FILE=\<0> ; 
99 90 99 2 0430 P.AEF: .ASCII \ \<0><0><0> : 
2c 29 57 55 21 2C 57 55 21 2 1 04 54 P.AEH: ASCII \Cluw, 'Uw, !UW),\ ; 
9900000 0444 P.AEG: .LONG 14 : 
0000000" 00448 -ADDRESS P.AEH ; 
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SYSACLSRV 16-Sep-1984 01:51: AX-11 Bliss-32 V4.0-74 Page 49 
v04-0 SFORMAT_ACL system service 12286871382 9332058 LOADSS. SRCISYSACLSRV.B 2:1 . (5) 
51 : D0 uA MOVL § ACL_STRING_LEN, R1 : 
04 00010 CLRL : 
* 000000006 0 ig OOF JB EXESPROBEW : 
56 oc ac 04 cI 90 8 ADDL3 #4, ACL_STRING, R6 : 0963 
6E 20 6E 90 ¢ 99 movCS #0, (SPY, #32, ACL_STRING_LEN, @(R6)+ : 
59 7c 000 CLRQ WIDTH : 0970 
08 AE D4 000 CLRL - TERM_POINTER : 0971 
SB ps 0038 CLRL §- TERM"LENGTH : 
34 AE 94 0003A CLRB = AUDIT_MASK : 0972 
0 AE 94 99 D CLRB = ACCESS_MASK : 
50 10 Ac 9 40 MOVL LINE_WIDTH, RO ; 0976 
09 13 00044 BEQL ==s«s1$ : | 
60 04 00 o¢ 00046 PROBER #0, #4, (RO) : 0977) 
74 13 OO04A BEQL sé: : 
59 60 00 0004¢ MOVL (RO), WIDTH : 0978 
14 AC D5 OOO4F 18 TSTL  TERM_DESC + 0981 | 
9 13 00052 BEQL 6-4 : 
14 BC 08 0 o¢ 00054 PROBER #0, #8, @TERM_DESC + 0984 | 
65 13 00059 BEQL 118 : 
58 14 BC 3¢ 00058 MOVZWL @TERM_DESC, TERM_LENGTH > 0987 | 
50 16 AC 04 C1 0005F ADDL3 #4, TERM DESC : 0988 | 
08 AE 60 DO 00064 MOVL (RO), TERM POINTER : 
50 08 AE DO 00068 MOVL § TERM_POINTER, RO : 0989) 
51 38 DO 0006C MOVL § TERMTLENGTH, R1 : | 
53 D4 0006F CLRL =o ; 
000000006 00 16 00071 JSB EXESPROBER : 
03 50 8 00077 a8: BLBS RO, 4$ : 
1087 31 OO07A 3$: BRW 172$ ; 
50 18 AC bg 00070 4$: MOVL §LINE_INDENT, RO > 0995 | 
09 13 00081 BEQL $ : 
60 04 00 o¢ 00083 PROBER #0, #4, (RO? : 0996. 
F1 13 00087 5$: BEQL : 
SA 60 00 00089 MOVL (RO), INDENT : 0997. 
5A D5 0008C 6$: TSTL INDENT : 1000 
1— 13 0008E BEQL F 
59 b) 90099 TSTL WIDTH > 1003) 
09 15 00092 BLEQ ; | 
59 5A D1 00094 CMPL NDENT, WIDTH > 1004. 
09 if 0097 BLEQU ; ; 
50 14 p 0099 MOVL #20, RO : 
4 0009C RET 3 
6E if pt o043 7$: CPL NDENT, ACL_STRING_LEN > 1005 
00000c00 = s BF A 01 OOOA2 8S: CMPL INDENT, #3072 : 1006 
5 18 OOAD 9$: BLEQU 10$ : 
105F 0 BRw 174$ 3 
00000000" EF 04 OOOAE 108: CLRL BIT_NAME_TABLE + 1013 
50 1c «AC b9 0084 MOVL  BITITABLE, RO + 1014 
OF 13 00088 BEQL F 
60 0100 «BF : OOBA PROBER #0, #256, (RO) : 1015 
00000000" EF C3 M8: ROVE, RO, BIT _NAME_ TABLE : 1016, 
SA 20 bE aa 2 Be o¢ 12$ MOVCS nO. (SPY, a2. INDENT, BUFFER : 1021 
57 gf D0 Ob MOVL INDENT, LINE_SIZE : 1022. 
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aTERR RA_D ADE » RO 
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ACL -ENTRY RG 
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16$ 
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#8676, RO 
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5 
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16 
SYSACLSRV 1}. -Sep-19 AX-11 Bliss-32 V4.0-74 Page 

von~000 SFORMAT_ACL system service 14- ~heo- 138 93:25 3 LOADSS.SRCJSYSACLSRV.B32;1 '. (33 
57 CO 00278 27$:  ADDL2 LINE size ; 

FEF8 CD 82 3 MOVW ae nest SCR + 1240 

FEFC CD asc CE46 FE 8 MOVAB SUFFER site FAO_DESCR+4 + 1261 

1¢ AE FFOO CD 9A B MOVZBL LOCAL_A &«SP)*~ + 1266 
fs AE 9F 00291 PUSHAB 28(SP : 
FEF cD 9F 00294 PUSHAB FAO_DESCR : 
E b4 98 CLRL = = (SP) : 
00000000" EF 9F O029A PUSHAB P.AEP : 
000000006 90 4 F AQ CALLS #4, SYSSFAOL : 

6 5 ¢ A ADDL2 #5. SIZE + 1265 

B 38 AE : O2AA BLBC 40(SP), 298 + 1246 

0 A F 0 A MOVAB 6(R7), R : | 
9 39 D B CMPL RO WibTH : 
é 1B 0028 BLEQU : § : 
BD 09 87 TSTL TERM. LENGTH : 
OF 15 00289 BLEQ : 
OASC CE46 08 BE 5B ¢8 00 B MOVC3 aren LENGTH, @TERM_POINTER, BUFFERCSIZE]  : 
50 14 BC 3C 002C MOVZWL @TERM DESC, R : 
56 50 c0 90 ¢ ADDL S mE : 
SA 20 6E 00 2C OO2CA 288:  mMOovcS #0. (SP), #32, INDENT, BUFFERCSIZE] : 
OASC CE46 OO2CF ; 
56 5A CO 00203 ADDL2 INDENT, SIZE : 
57 5A DO 00206 MOVL INDENT, LINE_SIZE ; 
57 06 CO 00209 298: ADDL a6, LINE ; 
OASC CE46 00000000" EF 06 28 002DC MOVC 6, P.AER, BUFFERCSIZE] : 

56 06 CO 002E7 ADDL2 #8. Size ; 

2B 28 AE €E9 OOZEA BLBC 40(SP), 318 + 1247 
50 07 A? SE OOZEE MOVAB 7(R7), RO ; 
59 50 D1 dere CMPL RO, WIDTH : 
22 1B OOF BLEQU 31$ F 
5B DS 002F7 TSTL § TERM_LENGTH : 
OF 15 09 9 BLEG : 
OASC CE46 08 BE 5B ¢8 oer MOVC3 TERM LENGTH, @TERM_POINTER, BUFFERCSIZE]  : 
50 14 BC 3C 0030 MOVZWL aTERA D , RO F 
56 50 CO 00307 ADDL 2 S mE ; 
SA 20 6E 00 2C 0030A 30$: MOV #0. (SP), #32, INDENT, BUFFERCSIZE] ; 
OASC CE46 0030F ; 

56 5A CO 00313 ADDL2 INDENT, SIZE : | 

57 SA 00 0 18 MOVL INDENT . tine SIZE ; | 

57 07 CO 00319 31$:  ADDL2 a. SIZE : | 

FEF8 CD 07 BO 0031C MOVW SSESER > 1248 | 

FEFC CD OASC CE46 9E 00321 MOVAB a7 FAD SI 126 a DESCR+4 + 1249 | 

1¢ AE FFO2 CD 3¢ 00329 MOVZWL LOCAL. ACE+2, 2B (SB) : 1252 | 
1¢ «AE OF 00 F PUSHAB 28(SPY ; 
FEFS cD oF PUSHAB FAO_DESCR F 

E D4 80 CLRL = = (SP) : | 
00000000' EF 9F 00 PUSHAB P.AES : 

000000006 90 4 FB 00 - CALLS #4, SYSSFAOL : 

4 re 4 ADDL2 #7. SIZE ; 1258 

28 28 AE : 48 BLBC 7nd) "99 33$ > 1254. 
0 A F 4 MOVAB ; 
59 50 D1 0035 CMPL ‘tote : 
ge 1 8 BLEQU : 
B D TSTL | TERM_LENGTH : 
oF 1 0 BLEQ : 
OASC CE46 08 BE B 5 6 9 MOVC3 TERM_LENGTH, @TERM_POINTER, BUFFERCSIZE)  ; 
16 BC 3¢ 00361 MOVZWL a@TERM_DESC, RO : 


16 
SYSACLSRV 1b-Se -1984 51: AX-11 Bliss-32 V4.0-74 Page 53 
yo 000 SFORMAT_ACL system service ae tiae ht rik eS a Pee et Pe 9 8) 
64 50 CO 0036 ADDL2 RO, SIZE ; 
SA 20 6E ee a, ge ea 32$ MOVC : (SP), #32, INDENT, BUFFERCSIZE) : 
56 3A CO $8 ADDL2 INDENT, SIZE ; 
; A 00 00 1 MOVL. _— INDENT. LINE SIZE : 
7 07 : 0 77 33$ ADDL2 #7, LINE SIZE : 
OASC CE46 00000000' gf 07 i ga move ut. B AED, BUFFERCSIZEJ ; 
g8 28 Ag 9 ° 88 BLBC 40(SP), 35$ : 1255 
0 0B OA E 8 MOVAB 11(R7), RO : 
59 50 D1 0039 CMPL R0 WIOTH : 
2 1 0 9 BLEGU 35§ ; 
B D 9 TSTL TERM_LENGTH : 
OF 15 00397 BLEQ 34$ : 
OASC CE46 08 BE B “ 0399 MOVC3 TERM_LENGTH, @TERM_POINTER, BUFFER[SIZE]  : 
50 146 BC 3C 003A1 MOVZWL a@TERM_ DESC, RO : 
54 50 c0 O3A5 ADDL2 RO, S : 
SA 20 6E are 0609 C So8hp 34$: MOVCS #0. (SP), #32, INDENT, BUFFERCSIZE] ; 
56 5A CO 00381 ADDL2 INDENT, SIZE : 
57 5A DO 003B4 MOVL INDENT. LINE SIZE : | 
57 0B CO 003B7 35$: ADDL2 #11, LINE SIZE : 
FEF8 CD 0B 80 003BA MOVW #11, FAO BESCR : 1256) 
FEFC CD OASC CE46 : 003BF MOVAB BUFFERCSIZE], FAO_DESCR+4 > 1257. 
1¢ AE FFOS CD DO 003C7 OVL LOCAL ACE+4, 28(SP) : 1260 | 
1¢ AE 9F 003CD PUSHAB 28(SPY : | 
FEF8 CD 9F 90300 PUSHAB FAO DESCR : 
7E D4 00304 CLRL = = (SP) : 
00000000" EF 9F 00306 PUSHAB P.AEV : 
000000006 00 04 FB 0030¢ CALLS #4, SYSSFAOL : | 
56 0B CO 003E ADDL2 aii s1zg ; 1261 
28 28 AE E9 003E6 BLBC 40(SP), 37$ > 1262 | 
0 05 A? 9E OO3EA MOVAB 5(R7), RO : 
59 50 D1 OO3EE CMPL RO, WIDTH ; 
2 18 003F1 BLEQU 37 : 
B DS 003F3 TSTL TERM_LENGTH F 
OF 15 00365 BLEQ 36$ : 
OASC CE46 08 BE 58 . 003F7 MOVC3 TERM_LENGTH, @TERM_POINTER, BUFFERCSIZE]  : 
50 146 BC 3C OO3FF MOVZWL @TERM_DESC, RO : 
56 50 co 00403 ADDL Q. SZ : 
SA 20 6E habe £0 ¢ 00406 36$: movcS #0, (SP), #32, INDENT, BUFFERCSIZE) : 
56 SA CO 0040F ADDL2 INDENT, SIZE : 
2 A 00 41 MOVL. INDENT. LINE SIZE : 
7 5 ¢ 415 37%:  ADDL2 #5, LINE SIZE : 
OASC CE46 00000000° EF 3 28 04 move a3. BAER. BUFFERCSIZE) : 
1c AE FFOO CD 9A 00426 MOV ZBL Lota ACE, 28(SP) : 1263. 
1C AE 05 C2 004 SUBL2 #5, OB(SPS ; | 
1 AE 04 C6 004 DIVL2 #4. 28(SP) : 
8 D4 004 im = J : 
SA 11 004 BRB 41$ : 
B 28 AE £9 0438 38$:  BLBC 40(SP), 40S > 1266 
0 B A E 04 OVAB 11(R7), RO : 
9 50 D1 0044 PL RO WIOTH F 
2 if 44 BLEQU 40$ ; 
B D5 0044 TSTL TERM_LENGTH : 
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SYSACLSRV 16-Sep-1984 01:51: AX-11 Bliss-32 V4.0-74 Page 56 
yon 008 SFORMAT_ACL system service 127808=1 386 93320584 {LOADS SRE ISYSACLERV.B 2;1 . 3 
acy 1A BLEQ 56$ : 
OASC CE46 08 BF B 38 sie MOVC3 TERM_LENGTH, @TERM_POINTER, BUFFERCSIZE]  : 
ee a ae a : 
SA 20 bE ape £99 se é 56$ aoekg RO: (SP), #32, INDENT, BUFFERCSIZE) : 
56 A CO 006 ADDL2 INDENT, SIZE : 
2 A D 637 MOVL INDENT, LINE_SIZE : 
7 0B ¢ 63A 57$:  ADDL2 #11, LINE SIZE : 
OASC CE46 00000000' ef 0B 9678 MOVC #11, P.ADC, BUFFERCSIZE) : 
88 18 AE 91 ObeeB S88: cmon’ SaSeb gs : 1068 
4 fF ore BNEQ ete : 
2B 28 OA f 551 BLBC 40(SP), 60$ + 1069 
50 0B A? 9E 00655 MOVAB 11(R7), RO : | 
59 50 01 00659 CMPL RO, WIDTH : 
2 18 0065C¢ BLEQU 60$ : 
B D5 0065 TSTL TERM_LENGTH : 
OF 15 0066 BLEQ ; 
OASC CE46 08 BE 58 H. 0066 MOVC3 TERM_LENGTH, @TERM_POINTER, BUFFERCSIZE]  : 
30 14 a ¢ 066A MOV ZUL aTERA DESC, RO ; 
SA 20 6E 00 se tsa 59$: MOVCS #0. (SP), #32, INDENT, BUFFERCSIZE) : 
OASC CE46 00676 : 
56 5A CO 0067A ADDL2 INDENT, SIZE : 
57 SA 00 00670 MOVL INDENT, LINE_SIZE 3 
57 0B CO 00680 60$: ADDL2 #11, LINE SI? : 
OASC CE46 00000000° EF 0B 28 00683 MOVC3 #11, P.ADM, BUFFERCSIZE : 
6 OB CO 0068E ADDL2 #11. SIZE : 
04 18 AE 9100691 61$:  CMPB 24(SP), m4 : 1070. 
40 ig 00695 BNEQ  64$ : | 
2B 28 «AE ES 00697 BLBC  40(SP), 63$ : 1071. 
50 0B A? SE 0069B MOVAB 11(R7). RO ; 
59 50 D1 0069F CMPL R9 WIDTH : 
2 i 006A2 BLEGU 63$ : 
B 05 006A4 TSTL § TERM_LENGTH : 
OF 15 006A BLEG 62$ ; | 
OASC CE46 08 BE 5B <8 06 MOVC3 TERM_LENGTH, @TERM_POINTER, BUFFERCSIZE]  : 
BP Gb aaiee ut raentese : 
SA 20 6E ad a, 2c 00687 62$: MOVCS #0, (SP), #32, INDENT, BUFFERCSIZE) ; 
56 3A co ogc ADDL2 INDENT, SIZE : 
57 AD 06¢ MOVL. INDENT, LINE SIZE : 
57 0B ¢ 6CS 63$: ADDL2 #11, LINE SIZE : 
OASC CE46 00000000' EF B 69 MOVC3 #11. P.ADN, BUFFERCSIZE) : 
8 B CO 006D4 ADDL2 #11. SIZE ; | 
31 28 AE 3 607 64$:  BLBC 40($P), 66$ : 1072. 
50 FFOO cD A 6p MOV ZBL LOCAL ACE, RO ; 
50 FC A04 4 6 MOVAB -4(ROJCLINE_SIZEJ, RO : 
59 39 D O6E CMPL RO, WIDTH : 
: 1B 006 BLEQU § : 
B D O6EA TSTL TERM_LENGTH ; 
F 1 EC BLEQ 3 : 
OASC CE46 08 BE 8 : O6EE MOVC3 TERM_LENGTH, @TERM_POINTER, BUFFERCSIZE)] 
14 BC C 006F6 MOVZWL aTERA DESC, RO : 
56 CO OO6FA ADDL2 RO, STZE : 
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Y0e-0b0 SFORMAT_ACL system service 13-808- 1 3be ES LOADSS.SRCJSYSACLSRV.B32;1 . (3 
SA 20 6E ne £98 2c 06 65$: MOVCS #0, (SP), #32, INDENT, BUFFERCSIZE] : : 
56 5A C0 07 ADDL2 INDENT, SIZE : ; 
5 A 00 007 MOVL INDENT LINE_SIZE : : 
58 FFOO cD 9A 0070C 66$: § MOVZBL ACE, RB : : 
57 FC AB47 OE ort MOVAB Lote TELINE. SIZE], LINE_SIZE : : 
50 FC OAB 3 716 OV =4 (RB) RO + 1073 ; 
OASC CES6 = FOG = CD 50 28 O071A MOVES RO+ 0 CAL ACE+4) BUFFERCSIZE] : 1075 : 
56 FC A846 f 07 ; MOVAB -4(RB)CSIZEJ, SIZE + 1076 : 
eB 28 AE f 07 BLBC 40(SP), 68$ + 1077 ; 
0 1 <A? 9€ 007 C MOVAB 1(R7), R : ; 
59 39 D1 09736 CMPL RO) WIDTH : ; 
: 18 0735 BLEGU 68$ ; ; 
: D3 0? 5 TSTL TERM. LENGTH : ; 
OASC CE46 08 BE oF ¢8 00739 MOVC3 TERM LENGTH, @TERM_POINTER, BUFFERCSIZE]  : ; 
50 14 BC C 00741 MOVZWL a@TERM_DESC, RO 3 : 
56 0 CO 00745 ADDL RO, S OFS 3 : 
C 67$:  MOVCS #0. (SP), #32, INDENT, BUFFERCSIZE ; : 
SA 20 6E rae £0 2 00748 7$ 0; (SP), #32 T (SIZE) ; 
56 5A CO 00751 ADDL2 INDENT, SIZE : : 
57 SA DO 00754 MOVL INDENT, LINE_SIZE : : 
57 D6 00757 68$: INCL LINE _Sfz : : 
A MOV AD BUF 3 . 
OASC CE46 00000000" F 30 00759 move BAA 6, BUFFERCSIZE] ; 
20 AE 01 90 00766 69$: MOVB #1, ACCESS_MASK + 1082 F 
> a | 01 90 0076A MOVB #1, AUDIT MASK : 1083 i 
05 18 AE 91 0076 CMPB = 24(SP), #5 + 1084 ; 
40 12 0077 BNEQ 72$ : F 
2B 28 «AE ES 00774 BLBC 40(SP), 71$ > 1085 : 
50 OE Ar 9E 00778 MOVAB 14(R7), RO : : 
59 50 D1 0077C CMPL RO, WIDTH : ; 
22 1B 0077F BLEQU 71$ ; ; 
5B D5 00781 TSTL § TERM_LENGTH : ; 
OF 15 00783 BLEQ 70$ : ; 
OASC CE46 08 BE 58 ¢8 00785 MOVC3. TERM LENGTH, @TERM_POINTER, BUFFERCSIZE]  : ; 
50 146 BC 3C 0078 MOVZWL TERA D . R : ; 
56 50 CO 00791 ADDL S i : ; 
5A 20 6E a £08 2c 00794 70$: MOVC #0. (SP), #32, INDENT, BUFFERCSIZE) : : 
56 5A CO 00790 ADDL2 INDENT, SIZE : ; 
57 5A DO 007A0 MOVL INDENT, LINE SIZE : ; 
57 OE CO 007A3 71$:  ADDL2 #14, LINE SI : ; 
OASC CE46 00000000' Ef OE ef O07A6 move #4, B ADP, BUF FERCSIZEJ ; : 
06 18 AE 91 007B4 72$: CMPB gu(8P),. "6 : 1086 : 
40 iF 0788 BNEQ 5$ : ; 
28 8 AE f O7BA BLBC  40(SP), 74$ : 1087 : 
0 — A? 9E 007B MOVAB 14(R7). RO : : 
59 50 D1 007C¢ CMPL RO, WIDTH : : 
¢2 1B 007¢ BLEQU 74§ ; : 
B 05 007C¢ TSTL TERM_LENGTH : ; 
OF 15 007¢9 BLEG 460 73$ : : 
OASC CE46 08 BF B ; o7¢ MOVC3 TERM_LENGTH, @TERM_POINTER, BUFFERCSIZE] ; 
14 ec ¢ 240 MOVZWL a@TERM DESC, ; : 
| 56 £9 0070 apie” RO. SIZE 
| SA 20 6£ 00 2C O07DA 73% movCS #0; (SP), #32, INDENT, BUFFERCSIZE) : ; 
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| SYSACLSRV 1Se 1984 01:51: 1 Ot iete 32 V4.0-7 Page 60 
/ v04-000 SFORMAT_ACL system service 12-8 08-138e 3 20:88 ANAS” SRC} SYSACLSRV. 2;1 . (8 
| 
| 38 AE £9 098A LBC 40 SP), 978 ; 1138 : 
1 Av 9E 0098 MOVAB 1(R7), RO ; | : 
9 pi 009¢ CHL RO WipTH : ; 
1B 009C BLEGU 97$ : : 
B 05 009C TSTL TERM_LENGTH : : 
OF 13 009c9 BLEQ_ 96$ : : 
OASC CE46 08 6E Bg 009¢ MOVC3 TERM LENGTH AQTERM.POINTER, BUFFERCSIZE} : 
14 BC 3 0090 MOVZWL a@TERA_DE ; : 
56 £0 9090 ADDLe RO, SIZE ; : 
SA 20 6E OAsc CEGe, °F QOBDA 968: MOVES AO, (SP), #32, INDENT, BUFFERCSIZE] ; : 
56 2A CO OO9ES ADDL2 INDENT, SIZE... 3 : 
A DO 009E6 MOVL INDENT LINE ‘SIZE § : 
37 D6 OO9EY 97S: INCL LINE siz ; : 
OASC CE46 00000000' Ef 30 a0948 nove pA AcS. BUFFERCSIZEJ 3 : 
FEDO 1C AE 01 88 FS o09F? Atel OS #1, K, 84S ; 1098 : 
O31C 31 OO9FE BRW 126$ > 1037 
2B 28 AE £9 QOAQ] 988: — BLBC_ 40 SP), 1008 ; 1143 : 
50 OF A? SE OOA0S MOVAB 15(R7), RO ; : 
59 39 D1 OOAQ9 CMPL = RO, WIDTH : ; 
g2 18 OOA0C BLEQU 106s ; : 
B D> OOAOE STL TERM_LENGTH ; : 
OF 15 OOA1 LEQ 86 99$ * : : 
OASC CE46 08 BE 38 ¢8 OOAle MOVC3 TERM LENGTH, @TERM_POINTER, BUFFERCSIZE] : 
50 14 BC 3C OOAIA MOVZWL aTERA_D RO ; : 
56 50 CO OOAIE ADDLe RO, § ; : 
5A 20 6E nat aohge 99$: movcS #0, (SP), 932, INDENT, BUFFERCSIZE) j : 
56 3A CO OOAGA ADDL2 INDENT, SIZE ; : 
57 A 00 O0AeD MOVL. INDENT, LINE SIZE ; : 
67 GF CO O0A30 1008: ADDLe #19, LINE SIZ ; : 
OAS¢ CE46 00000000° EF OF 28 O0AS3 moves #13. B P.AEC, BUFFERCSIZE) ; : 
08 00 6E ogee 2 ee Boal MOVCS #0, (SP), #0, #8, VOLNAM_DESC ; 1144 : 
12 00 6E nase 00 26 OAKS MovCS #0, (SP), #0, #18, VOLNAM_TEXT ; 1145 : 
08 00 6E me 00 2c GOA5i MOVCS #0, (SP), #0, #8, FILENAME_DESC : 1146 ; 
0200 8F 00 6E 39 90 2 90A39 MOVCS #0, (SP), #0, #512, FILENAME_TEXT ; 1147 : 
0838 CE 00000000" EF 05 38 ep moves P-AED. VOLNAM. TEXT ; 1149 ; 
op 06 =FFO4 «CD Of eC OOAGE MOVES #13, LOCAL -ACE+4, #0, #13, (R3) ; : 
oe. : e 
0838 CE 12 3 OOAzA LOCC fi #18, VOLNAM_TEXT ; 1151 ; 
12 QOA7A BNEQ {s ; ; 
1 D4 GOA7C CLRL ; ; 
50 0838 CF 9F OOATE 1018: ROVAR VOLNAn EXT. R ; ; 
084c CE 1 A3 OOA SUBW3 sR hl TVOLNAM, DESC ; ; 
0850 CE 0838 CE 9E OOA MOVAB VOLNAM TEXT VOLNAM_DESC+4 : 1153 ; 
0830 CE 02 F A90 MOVW #512, FILENAME. S > 1154 ; 
0834 CE AE 9E QOA97 OVAB FILENAME _TEXT, ~F ILENAME_DESC+4 > 1155 ; 
08 CE 9F OOA9D PUSHAB FILENAME DESC > 1156 ; 
4 CE 9F QOAAI PUSHAB FILENAME DESC ; ; 
FEIQ. CD 9F OOAAS SHAB LOCAL_ACE+16 ; ; 
0858 CE 9F OOAA9 PUSHAB NAM_DESC : : 
| 
| 


rr 


ar -° is38 ne ies oe 


11 Blis 
LOADSS.SRCJSYSACLSRV.B 


SFORMAT_ACL system service 


SYSACLSRV 
V0s~060 


[- *) o ww ts) A) rTw © COOMSMNOoOr 
wn nm Do o F XK XL RRRSSSSoe 
oo e- Fe - - re FF OOOO Oe 
—_ - fe = - eH HF AH POM OOO EFC SK 
ot oe oe eee ee ot et et ele et el et el et a eee ee ee eee eee ee eee ee ele el erer er ele er ar ere) ee) ee 2 2 ee ee 
[| 
wi 
6 4 ~ an 
w - w 
N 4) ~N 
~ =) ot 
” f° 4 ” 
ws on] w we 
[+ 4 w ve cc ww 
ww  ~ ve wa ™~ 
wm _ a uu 
“ ” @ 
> ww _ 2 i) 
@o « « . « 
w < _ w 
e “ — a vr :_ 
a “ ” Oo < Ya = 
w P= | ‘a _ we w 23 
— @ mn] — 7) ar —- ow 
2 w 2 . qw an 2 
a . ~N w vw mA 4 _ . 
oOo be ot = ~ 2ae ian oOo = 
a 2 ” oow an ww za. a 6. 
w a w ws wea “na tt Zum ow 
= = a «ew wn i ~w Wwwwt~ = ao 
< a =z ww wT ww Oo @Dw~ ~N w2Zn~n tIO@ ewZ 
zu uw _ xn u& OO “= xweue cs 4 PD) a me me LIN we 
oOo Cae —_. -—- Se nun ™N ws eunMunwn oo ee 
or ceo ° YwsD +a — © . ~N . mew « 
-— =< nw ~w@w > Vw WmMw « ee — ees es 8 sy ~N 
[ok cad * s wae “” 34 Mw ca ww” WWW . ww 
aun =z ZTses BeNZM*s DOD Ww =| WRN .¢ 4 SNNNNWa = lhUuT TS 
-— oOo —- vu —— ww —- OS es AZO - — KK 
water Yo UM . Aowww!e [ ¥¥) aw & or z MWWwMwMwwn 1 oO WO «s 
AL —- 2 2ww- 2en~Ne— WN + WE ' = ~ uw eee z 22—~ 
mv :+:a w won~a So oe EO one Kao mM O O&O s AD te ha w wwe 
SKOnns 4 ot RM ee OM 1 EH watz . Zw z rw lat 2 2 ee + JW 
Jon. B q aguw~w 22 —+ 2 & “O2w -~ we® = 2 Ww OWWWUW a ‘_~ 
Yur MEVHEA& ww + + *f€Gww Sw WEeOeE- *© * BY S- SE SESURECEE 
see MAEVE + +s AOOMWMMOR UZ WY sjOUOCOoO~Y @W wwe oO SINE aa + 
TOOMOOwWOwrOO 220" - Or 00 —0—Wwe-~OWr -O-Or-OeO — ee re See eet ee | 
Ree Ae ee Oe Be Yeu JRRK Uw GuVrnr WY 1 Ce C— eK eK OK OMNNNKNewr rr kK eK 
—j ot wal — a« a 
” 2 > Maun ww cuMricw mM>s]>3 3 32 @ e—mreucucun 3 mown 
ajdt IG UOONSYV BU IN ON IN US SSPseshsercs OV 443 UNIO UGY UY 
xO IJ0OE uM” JVOOCSaO e2ee3oaSF att td tet 4 StS det tet tet tet tt 223 293° s222 
YVEOZOO-OEEaAEF <FtaATEICOOEVVOTETEEVOT OEE COVCOVCOV OL OVE < eves orca 
od et A “ Fe ef AA od 
~N al wv mw oOo t~ o oo - 
Oo oO oOo o oOo o o O- - 
- - - - &- - - Fe - 
PA rt rey ot prt ind prt re tet empl NAb pA te Det aati ee he fe ety te ty wr mee Owe 
<EMOMOMOVVVVAC CO OCOWWWWeuwuwnOO0Oenrnen—— Fae et ae OD Dre ™oao 
aq<q44e eee eee ee eee IC WMAMOMOMOMDOMOMOOOOMDOAOMDOODOAOOOOODO@IO®D @2ooooooag 


SOOSOGOOOOSOSOSOOOOOOOOSSSSOSSOSOSOSSOSOSOSOSOOSSSoSSSoSoS Soooo 
COOOOOCOOOOOOOOOGSOOOOOSOSSSOSOSSOSOSSSCOCOSCSCSOSSOSSSOSSGOOSOSSOSOOOOOSOOOOSOSOOoO 


DOC WW — OVUNDVOVY OCOOOCDWOCO— OM OWV0 V— WWI 0 EE MEM KM VO HK MDOOWO UMIUNMDOW 
OWA OM OF CMON VO VN UM OVW MOMOAK— Om ORO KOK OK Om ORK ENV VU EOM OK NOT 


w oS So uw 
LY Oo < Vv 
ou wv Vv wv o Oo —- ou o Yv 
NO - wn a] mm - Co -u ~~" wn 
<t te) o awa co = 
oOo oO o Oo Oo o 
OoDm Doe womw Ore OM WOO OCOOww CO Wet he ww © ODO awhOwww wow 
ownnmnn Dmod WMmMUMNoO 2aMe- MMEE HM WOM DBD WwW MO MW OOMHnvde ano 
wo a 
o [ee] Oo te) ww Qa oO oO@ow a 
Oo Oo o - -—— w — Me oO 
o o oO 
So o oOo 
Oo o 
o o 
o o 
Oo Oo 
wo i=) ~o Ow oO “o OS 
w N w al) w wr Nw 
w ive) ivs) ba 
i ww w Ww 
Yv Y oO vw Ww 
< < % 2 2 
Oo Oo oO oOo Oo 
<< Oo 7 
w w w 


stesabiabeoiaient 
| 


| SYSAEL SRV 
v04- SFORMAT_ACL system service 


sat 
38 


OASC CE46 08 BE 

50 

56 

SA 20 6E 
56 

57 

OASC CE46 

OQAS4 «CCE 

OA5S8 CE 

000000006 90 

5 

50 

59 

OASC CE46 08 BF 

56 

5A 20 6E 
: 

OASC CE46 0A58 bE 
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oe ef 


nn” 
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—oo 
OUwWNnOovwrvvil b&b NOPUPOUMN™ 
OOO *WvVvo~wmMowmnomlony > 


8 
OASC cee 
Sh 
57 
00000000" fF 
6 
76 
6200 8F 
0854 CE 
FFI4 §=6CD 
4aF cD 
FFI cD 
A? cE 
A64 CCE 
00000000" Fr 
6 
8 AE 

0A54 


wie 
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OA5SC cee 
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ai 
50 
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D 
¢ 
Dd 
1 
D 
: 
D 
1 
s 
‘ 
1 
28 
a 
5c B 
008CB 
CO OOBCF 
dO G0sbe 
b8 OBO 
9 poet 
D6 OOBE! 
11 Ooce 
BO OOBE 
9E doer § 
DD OOBF 
DD Dost 
DD OOBFB 
9F OOBFF 
oF pcos 
9F 00CO 
3 Et 
5 0c18 
CO 00C1D 
D1 O0C 
BB 
Ha 
4a 
st 
3 He 
a He? 
he 
ne 
i 
di 00C63 


bit 
eo- 
Ht 

112$: 


113$: 


1168: 


117$: 


1188: 
1198: 


120$: 


Be 12:40 


‘$4 AX=11 BL isg-32 V4 209748 
LOADSS.SRCJSYSACLSRV.B32;1 
DENT, SIZE 
DENT LINE SIZE 
NE siz WIDTH, RO 
28 (SPS 
$s 
P), RO 
SEGMENT SIZE 


M_LENGTH 


RA_D 
(SP), 


ENT, SIZE 

ENT, LINE SIZE 

E Siz 

f& BUF FERCSIZEJ 
5 


om POO 
n 


_LENGTH 


DBezwe 
[7,) t=] 
~ 


A_DESC, 
(SP), 


SIZE 
He SIZE 


DBVLDVWIBIV-— BWI 4—- IF TNS Bd _ 


OroaowoorzZz Orman ae 


se mam ss OVS + + MBowmwo 


( 
( 

4 

6 

( 

R 

é 

8 

RN LENGTH, aren. POINTER, BUFFERCSIZE] 
: oe. INDENT, BUFFERCSIZE) 
D 

D 

N 
By 


LENGTH, @TERM_POINTER, BUFFERCSIZE) 
ESC, RO 


#32, INDENT, BUFFERCSIZE) 
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H 1 | 
SYSACLSRV 16-Sep-1984 01:51: AX-11 Bliss-32 V4.0-74 Page 63 
aa i SFORMAT_ACL system service 19-808- 1382 9b: 2h;8s LOADSS.SRCISYSACLERV.B 2:1 ° ($3 
2 18 00C BLEQU 1228 ; 
B D ee TSTL TERM_LENGTH : 
F 15 OOC6A BLEG =: 1218 : 
OASC CE46 08 ; B 2 C6C MOVC3  TERM_LENGTH, aTERM_POINTER, BUFFERCSIZE] : | 
ea 1 aa | 
: Vv é » 432, INDENT, BUFFERCSIZE : 
SA 20 6E we *, ge ¢ 121$: MO tg 0 (SP), #32, INDENT, BUFFERCSIZE) : 
6 2A co 00¢ ADDL2 INDENT, SIZE : | 
12 PB BRSEL zon, MBbte BREN gt BE | 
OASC CE46 00000000° Ef 16 5 ¢ haves Woe, P.AET, BUFFERCSIZE) : 
6 16 CO 00¢ ADDL2 #22. SIZE : 
OASG CE 9200 8F Be OC MOVW #512, FAO_DESC + 1209 
Oas58 «CE 0854 CE 9E OOCA MOVAB FAO BUF, FAO_DESC+4 : 1210 
frig CD OF OOCA PUSHAB LOCAL _ACE+24 + 1214 
OAS8 CE 9F OOCAD PUSHAB FAO_DESC : 
OA5C CE 9F 00CBI PUSHAB FAO~DESC F 
00000000" EF 9F 00CBS PUSHAB P.AEJ : 
000000006 00 04 FB 00CB CALLS #4, SYSSFAO ; 
O8SF CE A 90 00CC Move 3=-«#58, FAO_Bur +11 + 1215 
20 0854 CE 91 00CC CMPB FAQ BUF , #32 + 1216 
08 12 goccc BNEQ 1238 : 
OAS «CE B Occ DECW  FAO_DESC + 1219 
OA58 «CE D6 00D INCL FAO DESC+4 + 1220 
2 28 AE ; 90CD6 123$: BLBC 40(SP), 125$ + 1222 
0 0A54 ce C OOCDA MOVZWL FAO DESC, RO ; 
50 CO OOCOF ADDL2 LINE SIZE, RO : 
59 50 01 OOcEe CMPL Rg QIDTH 3 
ee if OOCE BLEGU 125$ : 
B D5 OOCE7 TSTL TERM_LENGTH : 
OF 15 OOcE9 BLEG 1248 : 
OASC CE46 08 BE 5B <8 OCE MOVC3 TERM_LENGTH, @TERM_POINTER, BUFFERCSIZE]  : 
50 14 BC 3C OOCF MOVZWL @TERM DESC, RO ; 
56 50 c0 Oc ADDL 2 RO, SIZ : 
SA 20 bE 00 2C OOCFA 124$: movcS #0, (SP), #32, INDENT, BUFFERCSIZE) ; 
OASC CE46 OOCFF : 
56 5A CO 00003 ADDL2 INDENT, SIZE : 
5 SA b0 90006 MOVL INDENT LINE _SIZE : 
58 0AS4 ce 0D09 125$:  MOVZWL FAO_DESC, R ; 
57 5 ODOE ADDL2 8, LINE.SIZE ; 
OASC CE46 OASB ODE 38 001 MOVC3 RB. @FAO-DESC+4, BUFFERCSIZE) :1 33 
56 CO OODIA ADDL > 1226 
8 FFQ2 cD 8 901 1268: MOVW LOCAL_ACE+2, LAGS > 1293 
4 A 7 D BLBC AUOIT MASK, 127$ : 1294 
8 9 A 00D BICB2 #3, FCAGS : 1295 
8 D29 127$: TSTw FLAGS : 1296 
0 D2B BNEQ 128$ : 
0186 31 00D BRW 146$ : 
28 28 AE £9 030 128$: BLBC 40(SP), 130 : 1299 
A f D MOVAB 8&(R7), RO F 
59 9 D1 00D CMPL =«RO, ~WEDT ; 
1B 000 BLEGU 136$ ; 
B p D TSTL TERM_LENGTH : 
F D3F BLE 129$ : 
OASC CE46 08 BF B : p41 MOVC3 TERM_LENGTH, @TERM_POINTER, BUFFERCSIZE] 
14 BC 3¢ 00D49 MOVZWL a@TERA_DESC, RO : 
| 
| 
ee 


Bee Se Se Se Se Se Ge Se Se Se Se Se Se Se Sse Ge Fe Se Se Se Se Fe Ge Ge Fe Fe Se Se Se Se Se SE Fe Ge FETS SH Se Se Se ee Se Se Se ae Se Se Se Se Se Se Seas eeee 


Page e 

1b-se Hats 1 93:20:83 Sab ss sae isveatc sav. 

SYSACL SRV RMAT_ACL system service DL2 RO, SIZE T, BUFFERCSIZE] ; 

vote Ob8 bees. 56 i SC 86050 1298: AOveS 50 SPS, #32, INDEN ; 

SA 20 eOASE "oh c : nove. INDENT? LINE »$12e : 

i § 26 Dope 1308 moves #8, BLAFAS GUFFERCSIZE) jaa ; 

00' f 5 062 ADDL ao, aiee. 133$ ; 1304 : 

OASC CE46 000000 5 ES 00b70 ae isp, i828 : 

- ! 3B AE GP BoDre ROVAB  8{R7) RO 

$0 oi Boor alecu $65" 

9 ; D7F ENGTH : : 

TSTL © TERM_L ; 

H ¢ a Bees iis LENGTH, @TERM_POINTER, BUFFERCSIZE] ; 

CE46 08 et 14 30 $ Oopae ROVE | BTERA DESC. AO BUF FERCSIZEJ : ; 

aa BS SPARE asus: ABE RHE, ase, en, : : 

00 : ° ; 

6E D99 » SIZE : : 

“ 4 "Gert a es ROVE. INDENT CINE size ; 

i: A ae ee a ees a) i 

' 08 ADDL2 #8 : 130 : 

OASC CE46 00000000 EF 08 C0 908) 1338: Bacc Locos NfSss'S** ; ; 

40 38 28 AE ED 00088 MOVAB 7(RI) RO : : 

; 39 1 O0n¢ BLEGU 135s ; : 

59 g2 18 000¢ TSTL TERM_LENGTH 3 «(| : 

F ¢ DC? MOVES TERA_LENGTH, @TERM_POINTER, BUFFERCSIZ ; 

£46 08 BE 30 $e Oop; ROvzuL RO ete” FFERCSIZE) : 

nae re ee Oe a : 

ee Sie o) eee a oe : ; 

S ‘ ; 

sf 3 c ODE? 1358: nov$ of BAPE, BUFFERCSIZEJ Pion : 

' ? ADDL #7, : 1305 : 

OASC CE46 00000000 44 ‘ Sore 136$:  BBCC aDisey. fas : : 

40 35 8 AG §? Boor AOVAB 1 CAT are : 3 

i ba A af 4 CAP f tg”! TH ; 

59 22 18 90607 TSTL” TERR LENGTH ict a ; 

oF } E mOvC3 TERA LENGTH, @TERM_POINTER, BUFFE ; : 

a : MOVZWL a@TERM_DES : ; 

& 08 § 3 RO, SIZE FFERCSIZE) : 3 

ee ees) ee: a ee : : 

: 2 Fase cet * : wm? OER FED ar : : 
i o : B 138$: ADDL2 #10, LINE_S 


1 
SYSACLSRV tbese -1984 251: AxX-11 Bliss-32 V4.0-74 Page 65 
a i SFORMAT_ACL system service 1 ~$007 138% 94:2 hi84 LOADSS. SRCJSYSACLSRV.B32;1 . (83 
OASC CE46 00000000° EF A 2 E MOVC #10, P.AFD, BUFFERCSIZE) : ‘ 
oA C £% ADDL 410, Size : : 
40 B €5 O0E f 139$: BeCc #i FLAGS 142$ : 1306 : 
8 28 AE : E4 BLBC «=—s_«40(SP), 14/8 : 130 : 
Cc )hUCOA f E44 MOVAB 12(R7), RO 3 ‘ 
9 9 D1 00E48 CMPL RO, WIDTH : : 
1B 00E4B BLEQU «14/8 : ; 
B D5 00E4D TSTL  TERM_LENGTH : : 
OF 15 OOE4F BLEG 140$ : ; 
OASC CE46 08 u B : £51 MOVC3 TERM_LENGTH, @TERM_POINTER, BUFFERCSIZE] : : 
20 14 i ¢ i 9 MOVZuL aTERR DESC, RO : : 
SA 20 6E BPM , ge deep 140$: appt g O° aSh5, #32, INDENT, BUFFERCSIZE) ; : 
56 SA CO OOEG ADDL2 INDENT, SIZE ; : 
. 5A DO OOE6C MOVL ‘INDENT, LINE_SIZE ; : 
57 OC CO QOEG 1418: ADDLZ #12, LINE SIZE 3 : 
OASC CE46 00000000° EF ¢ E72 MOVC3 #12. P.AFE, BUFFERCSIZE) ; : 
6 o¢ CO 00E7D ADDL2 #12, SIZE ; : 
8 OE 80 142$: TSTW FLAGS + 1308 ; 
5c 13 0082 BEQL 145$ : ; 
Ht 28 AE £9 DEB BLBC 40(SP), 144$ + 1311 ; 
0 07 A? SE 00E88 MOVAB 7(R7), RO : : 
59 50 D1 OO0E8C CMPL RO, WIDTH : ; 
2 1B OOE8F BLEGU 1445 : ; 
B D5 00E91 TSTL | TERM_LENGTH : ’ 
OF 15 00E93 BLEO 3$ ; : 
OASC CE46 08 BE B H: QOE95 MOVC3 TERM_LENGTH, @TERM_POINTER, BUFFERCSIZE]  : é 
3 «85 26 CORA RONeye RIERA DESC. RO 
SA 20 CE ase ced 26 GOERS 1438: Moves A > (SP), #32, INDENT, BUFFERCSIZE} ; ; 
56 5A CO OOEAD ADDL2 INDENT, SIZE : : 
57 5a DO OEBO MOVL ‘INDENT, LINE SIZE : : 
57 07 CO OOEB3 144%: ADDL2 #7, LINE SIZE ; F 
FEF8 CD 07 BO O0EB6 MOVW 4&7 FAD BESCR : 1312 ; 
FEFC CD OASC cEdG 9€ OEBB OVAB BUFFERCSIZEJ, FAO_DESCR+4 : 131 : 
7E 58 3C OOEC MOVZWL FLAGS, -(SP) : 1317 ; 
FEF8 CD 9F OOEC6 PUSHAB FAO_DESCR : F 
FEF8 CD 9F ECA PUSHAB FAO~DESCR ; : 
00000000" EF 9F OOECE PUSHAB P.AFF : F 
000000006 00 4 FB ED4 CALLS #4, SYSSFAO : ; 
- 06 1) OOEDE + lee 1308 
OASB CE4G C 90 EEO 145$: MOVB #44 BUFFER-ICSIZ j :1 20 ; 
0 20 on §§ EEG 1468: BLBS ACCESS MASK, 14 : 1325 : 
FFO4 cD p EED 147%: STL L AL_ACE+4 : 1328 ; 
1 EF BNEO $ : : 
03 24 M3 5 EF BLBS AUDIT MASK, 149$ > 1329 ; 
018 EF 1488: BRW 1 : : 
06 FFO2 cD 3) EFA 149$:  BLBS LOCAL ACE+2, 150 : 1330 ; 
F2 FFO2 CD 1 £1 OOEFF BBC 4 LOCAL ACE+2, 1488 > 1331 3 
: A 9 FOS 150$: BLBC 40¢SP), 152$ ; : 
A E F MOVAB 7(R7), RO : F 
39 D1 OOF CMPL RO wioTH ; : 
1B 00F1 BLEGU 1528 ; : 


on 
ow 
~ 
@ 
a 
eo 
a 


y 1 Oh ieee ng ome 
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voeeO00 SFORMAT_ACL system service Haat yi 9:2) 3h Abapsse sR ¢ s¥eat téRv. 7382: 51 —— (3 


1 
50 08 A7 oF oFFe MOVAB 8(R7), RO ; 
9 D 190 CMPL RO, WIDTH : 
1B 01 é BLEQU 164$ F 
B D5 01 TSTL TERM. LENGTH : 
OF 15 O100A LEG. «=: 16 3$" : 
OASC CE46 08 BE B <8 100¢ OVC3. TERM_LENGTH, agTeRM. POINTER, BUFFERCSIZE] : 
14 ; 1014 MOVZWL @TERM_DESC, : 
56 5 1018 ADDL g RO. SIZE : 
SA 20 6E nde welt C 18 163$: MOVCS #0. (SP), #32, INDENT, BUFFERCSIZE) ; 
56 SA CO 01024 ADDL2 INDENT, SIZE ; 
7 3A D 19 7 MOV. INDENT, LINE SIZE ; 
7 8 ¢ 102A 164$: ADDL2 #8, LINE SIZE ; 
OASC CE46 00000000° EF 08 : 10 p MOVCS #8. P.AFT, BUFFERCSIZE) ; 
4 0 CO 010 ADDL2 #8. SIZE ; 
B2 FFO2 CD 1 €1 19 B 165$: BBC #1. LOCAL_ACE+2, 161$ + 1363 
¢8 28 AE £9 1041 BLBC 40isP), 187$ : 
0 8 A F 01043 MOVAB 8(R7), RO : 
59 50 01 01049 CMPL RO, WIDTH ; 
2 18 01 94¢ BLEGU 167$ : 
BO BOSD wi: sue 
OASC CE46 08 BE oF 28 b1982 MOVC3 TERM LENGTH, @TERM_POINTER, BUFFERCSIZE] : 
BE REISE OMAR grePaS 0 | 
SA 20 6E 00 2c 01061 166$: spokes #0. (SP), #32, INDENT, BUFFERCSIZE) : 
56 sta cee rat) 1068 ADDL2 INDE : 
57 5a DO 0108p MOVL ‘INDENT. LINE SIZE ; 
57 08 co 1079 167$:  ADDL2 #8, LINE SIZE ; 
OASC CE46 00000000' EF 08 28 0107 MOVC3 #8. P.AFJ, BUFFERCSIZE) : 
56 08 CO O107E ADDL2 8 SIZE : 
40 11 01081 BRB 174$ : 1328 
“ 28 Ag £9 1083 168$: BLBC 40(SP), 170$ > 1366 
0 OC A? SE 0108 MOVAB 12(R7). RO ; 
59 50 D1 01088 CMPL RO WIDTH : 
gé 08 199 BL eau 76s LENGTH : 
OF 15 0109 LEQ 169%" : 
OASC CE46 08 BE 5B ¢8 1094 MOVC3 TERM_LENGTH, @TERM_POINTER, BUFFERCSIZE]  : 
5 14 aC ¢ 109¢ MOVZWL aTERM DESC, : 
rt : 10A ADDL g RO, STZE : 
SA 20 6E ae 0609 C 10, 169$: MOVCS #0. (SP), #32, INDENT, BUFFERCSIZE) : 
56 2A CO O10AC ADDL2 INDENT, SIZE F 
2 A DO O10AF MOVL ‘INDENT. LINE SIZE ; 
7 C : 10B2 170$: ADDL2 #12, LINE SIZE : 
OASC CE46 00000000° EF ¢ : move a : BAER, BUF FERCSIZE) : 
OASB CE4 § 10C3 171$: MOVB #41. BUFFER=1{S17E] : 1371 
0c BC 0 0 : 10¢ PROBER #9 #8, @ACL_STRING : 1375 
10¢ BEQ. 172% : 
54 oc ac 4 Ci 0100 ADDL3 #4, ACL_STRING, R4 : 1378 
20 64 DO 010D MOVL rn), R : 
1 § DO 010D MOVL ACL _STRING_LEN, R1 : 
D4 01008 CLRL oR : 
000000006 00 16 010DD JSB EXESPROBEW : 


Ee A —— 


m1 
SYSACLSRV -Sep-1984 01:51: AX-11 Bliss-32 V4.0-74 P 
502-508 SFORMAT_ACL system service 12-80-1382 Oh: 2h at AWADSS SREISYSACL SRV 69251 _ (8 
1€ 0 £9 01 E3 BLBC R0, 172$ F 
57 gc AC 4 cI 10€ ADDL3 #4. ACL STRING, R7 + 1379 
6E 0 OaSC CE $ C E movcS SIZe, BOFFER, #0, ACL_STRING_LEN, @(R7)+  ; 
50 08 AC 09 MOV ACL gLENGTH, RO + 1383 
60 04 o0 i r9 PROBEW #0, #4, (RO) + 1384 
60 g dO O10FF MOVL SIZE, (RO) + 1385 
04 11 1198 BRB 173$ ; 
50 0c Bd 1 4 172$: MOVL #12, RO F 
6E 56 (D1 1198 173$: CMPL SIZE. ACL_STRING_LEN + 1386 
06 15 01108 BLEQ 175$ : 
50 0601 8F 3C 01100 174$: MOVZWL #1537, RO + 1387 
04 111¢ RET ; 
50 01 DO 01113 175$: MOVL #1, RO ; 
04 01116 RET + 1389 


; Routine Size: 4375 bytes, Routine Base: $CODE$ + 0201 


N 1 
SYSACLSRV 16-Sep-1984 01:51: AX=11 Bliss-32 v4.0-74 e Bs 
aad SCHANGE_ACL system service eet a Ye eT et oF ibs 


: 1395 1390 1 ZSBTTL ‘SCHANGE Ach system service’ 

3 1 1391 1 GLOBAL ROUTINE SYSSCHANGE_ACL (CHANNEL, OBJECT_TYPE, OBJECT_NAME, 

: 1 97 3 ITEM_LIST, ACCESS_MOOE, RESERVED, CONTEXT) = 
; 1399 13946 1 !44 

: 1400 1395 1! 

: et : : ! } FUNCTIONAL DESCRIPTION: 

3 1408 1398 1! This routine changes (or reads) the ACL associated with any of the 
: ee 1738 ! defined objects within the system. 

3 1008 1491 1 3 Note: Since the length of the ACE is part of the data returned to 
3; 140 14 § 1! the caller, the return Length parameter of the item List 
: 1408 1405 1! is unused. 

: 1409 1404 1! 

3 1410 1405 1! There are basically two types of objects that can have their ACL 

3 1411 1008 1} twiddled. There are those Objects that require an agent to do the work 
: aT 1407 1! (e.g, files by the XQP) and the others where it is simply necessary to 
3 141 1408 1! locate the ACL queue segment List head. In the latter case, the work 
3 1414 1409 1! is done here. 

3 1415 1410 1! 

7 1416 1411 1 ! CALLING SEQUENCE: 

: eit 1et6 : SYSSCHANGE_ACL (ARG1, ARG2, ARG3, ARG4, ARGS, ARG6, ARG7) 

: 1419 1414 1 ! INPUT PARAMETERS: 

3; 1420 1415 1! ARG1: number of the channel assigned to the object or 0 if 

3: 1421 1418 1! the object is specified by ARG2 and ARG 

3 14 ; 141 . F ARG2: address of ano ject type code 

3 14 1418 1! ARGS: address of an object name descriptor 

3 1426 1419 1! ARG4: address of a List of item descriptors 

3: 1425 1059 1! ARGS: address of an access mode pongyers (used to validate the 

3 1426 1421 1! item List and I/0 status block) 

3 1427 14 § , ARG6: reserved for future use 

: 1428 14 1! ARG7: address of a context longword 

3 1429 1424 1! 

3 14 1425 1 ! IMPLICIT INPUTS: 

3 1431 1426 1! none 

: 1436 1427 1! 

3 14 1428 1 ! OUTPUT PARAMETERS: 

3 Ht +3 1429 1! ARG7: address of a context longword 

3: 1435 1430 1! 

: 1636 1431 1 ! IMPLICIT OUTPUTS: 

3 14 14 1! none 

: 1038 14 1! 

2 16 1434 1 ! ROUTINE VALUE: 

3 1440 1435 1! SS$_NORMAL - if the requested action completed pyecess Tully 

3: 1641 14 1! SS$_NOPRIV - if the requestor did not have privileges for the 

3 144 14 , requested action 

: 144 1638 1! 

3 1444 14 1 ! SIDE EFFECTS: Ss 

3: 1445 1440 1! The context Senger’ is modified as necessary based upon the 

3 1446 1441 1! action requested. 

3 146 pe 1! 

; 1448 144 1 !e- 

5; 1449 1444 1 

3; 1450 1445 § BEGIN 

3; 1451 1446 
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| 
3 1486 1447 MAP 
; 145 1008 CHANNEL : WORD 
> 1454 144 OBJECT _NAME : REF $BBLOCK 
; 1439 1430 ITEN_LIST : REF BLOCKVECTOR C, ITMSS_ITEM, BYTE]; 
1457 165¢ 2 LOCAL 
; 1458 145 STATUS ' Local routine return status 
3: 1459 1454 STATUS2, ! Temp status, may overwrite STATUS 
: 1460 1455 PSL : SBBLOCK (4), ' Local copy of P t 
3 1461 1456 LOCAL_OBJTYP, ! Local copy of object type code 
3 1406 1457 LOCAL_10SB : VECTOR C4, WORD], ' Local copy of the I/0 status block 
: 146 1458 LOCAL_LOCKID, ' Local copy of the lock-id 
3 1464 1459 OBJECT_DESC : VECTOR (2), ! Descriptor of object name 
3; 1465 1460 SHARE : BYTE, ! Whether to allow sharing or not 
; 1466 1461 ITEM_COUNT, ! Number of items in the list 
: 1467 1306 ITEM_CODE, ! Code from item List entry 
: 1468 1463 2 ITEM_SIZE, ! Size from item List entry 
3; 1489 1464 2 ITEM_ADDR, ' Buffer addr from item List entry 
3 1470 1465 2 LOCAC_CHANNEL =: WORD, ' Local copy of user's channel 
3 1471 1466 2 10_ CHANNEL : WORD, ' Object's channel 
3 1472 1467 2 FICE_FAB : $FAB_DECL, ! Object file's FAB 
; 1473 1468 § FILE_NAM : SNAM_DECL, ! Object file's NAMe block 
> 1474 1469 FILE_EXP_NAME : S$BBLOCK CNAMSC_MAXRSS], ! Expanded name storage 
: 1475 1470 2 FILE_RES_NAME : $BBLOCK LNAMSC_MAXRSS], ' Resultant name storage 
3; 1476 1471 2 FILE_FIB_DESC : SBBLOCK CLDSC$C_S_BLNJ ' File FIB descriptor 
3 1477 Org 2 FILE_FIB : $BBLOCK FIBSCmLENGTHJ ' File FIB srorege 
> 1478 1473 2 DVI_ATR_LIST |: BLOCKVECTOR C2; ITMS$S_ITEM, BYTE), ' $GETDVI item List 
> 1479 1474 2 ACP-ATR-PTR ' Pointer into ACP attribute List 
3; 1480 1475 2 ACP_ATR LIST : REF BLOCKVECTOR C, 8, BYTE], ! ACP attribute List 
> 1481 1476 é ACL-TO_ATR_TAB : VECTOR CMAX_ACL_ATR + 1) i ATRSC to ACLSC xlate 
3: 1482 1477 INITIAL (¢ 
> 1483 1478 2 ATRSC_ADDACLENT, | 
> 1484 1479 2 ATRSC_DELACLENT, 
3; 1485 1480 2 ATRSC_MODACLENT, 
3 1486 1481 2 ATRSC_FNDACLENT, 
: 1487 1482 2 ATRSC_FNDACETYP, 
3; 1488 1483 2 ATRSC_DELETEACL, 
3; 1489 1484 § ATRSC_READACL 
> 1490 1485 ATRSC_ACLLENGTH, 
3 1491 1486 2 ATRSC_READACE), 
3: 1492 1487 2 FUNCTION_CODE, ' Q10W function code 
3 1493 1488 ! Also, ACL dispatch code 
; 149% 1489 CMK_ARG_LIST : VECTOR (5); i $CMKANL arg List 
° | 
3 1239 133] ! See if an access mode parameter was given. 
3; 1498 1498 CHANGE _ACMODE = 0; 
> 1499 1494 2 IF .ACCESS_MODE NEQA 0 
3; 1500 1495 THEN IF PROBER (ZREF (0), SREF (4), .ACCESS_MODE) 
; 1501 1438 THEN CHANGE _ACMODE = ..ACCESS_MODE 
$ 1208 149 ELSE RETURN SS$_ACCVIO; | 
3 150 re 
3 1504 14 MOVPSL (PSL); 
3; 1505 1500 CALL_ACMODE = .PSLCPSL$V_PRVMOD]; 
: 1306 1301 CHANGE_ACMODE = MAXU (.CRANGE_ACMODE, .CALL_ACMODE); 
3; 1508 1308 ! Determine the validity of the access mode parameter. 
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IF .CHANGE_ACMODE GTRU PSLSC_USER THEN RETURN SS$_BADPARAM; 
! Get the supplied channel, if any, and verify it. 


CHANNEL = LOCAL — rent = CHANNEL; 
Bho CHANNEL NEQ™ 


eeeit 
STATUS = IOCSVERIFYCHAN (.10_ CHANNEL); 
_— «STATUS THEN RETURW . STATUS; 


! Get the object type code. 


IF .OBJECT_TYPE NEQA 0 
THEN CF PROBER CEREF (0), REF (4), .OBJECT_TYPE) 
N LOCAL OBJTYP = ..OBJECT_TYPE 
RETURN $$$_ACCVIO) 


EL tse 
ELSE RETURN 55s. INSFARG; 
! Check the validity of the object type code. 
IF .LOCAL_OBJTYP LSSU MIN_OBJECT_TYPE 
OR .LOCAL-OBJTYP GTRU MAX_OBJECT_TYPE 
THEN RETURN SS$_BADPARAM; ~ 
| 


! Probe the object name if supplied. 


BEEBE EEE SE FAWN WWIII PINIPINNINVAININ 2 2 2 OS SS SO 
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IF .OBJECT_NAME NEQA 0 
THEN sit 
F NOT PROBER (ZREF (0), %REF (DSCS$C_S_BLN), .OBJECT_NAME) 
THEN RETURN Ss8_ CCVIO; 
OBJECT DESC i = [OBJECT -NAME DSC$W LENGTH] 
OBJECT“DESCL1) = .OBJECT-NAMELDSCSA POINTER); 
IF NOT~EXESPROBER (0, .OBJECT_DESCCOJ, .OBJECT_DESCL1)) 
THEN RETURN SS$_ACCVIO; 
END 
ELS 
BEGIN 
OBJECT _DESCCO} = 0; 
OBJECT DESCL1) = 0: 


! Get any vaiue supplied for the context parameter. 


ACL_ CONTEXT = 0 

IF =CONTEXT NEQA 0 

THEN IF PROBEW (ZREF (0), XREF (4), .CONTEXT) 
THEN ACL XT = NTEXT 


ONT 
ELSE RETORN SS$_ACCVIO; 
! Count the number of items in the item List. 
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' Assume shared access 


ee ee ae ee ee ee el el el a el el ll cl cl el el el el ee el ce el el el el el a el el a el a eel ee 
PUD PUDDLES IT LSS SUSE SUT STTSTSTSTTSTSTITISSTSIIISISIISISIOIS 
a ee a ee ee a ee ee ee a et ee a dd dd 


SHARE = 1; 
INCR J FROM 0 


—_—_—_——?$? [Jp ——————— ———————  ————— ———— 
2 | 
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: 126 1561 DO IF PROBER (ZREF (0), %REF yes ITEM) ITERALISTC.J, 0,0,0,0]) 

: 156 1 6¢ THEN CIF .ITEM_LISTC.J, ITM$W_BUFSIZ) EOL 

; 1208 156 THEN 

; 1569 1564 4 BEGIN 

: 1200 1565 4 ITEM _ COUNT = .J; 

; 1571 1 96 4 EXITCOOP; 

; 1206 1567 4 END 

s 157 1568 3 ELSE 

3; 1574 1 4 4 BEGIN 

3; 1575 1570 4 IF .ITEM_LISTC.J, ITM$SW_ITMCOD] EQL ACLS$C_ADDACLENT 

: 1576 1571 4 OR .ITEM_LISTL.J, ITMSW_LITMCOD) EQL ACLSC_DELACLENT 

: 120% 1 ue 4 OR .ITEM_LISTL.J. ITMS$W_ITMCODJ] EQL ACLSC_MODACLENT 

; 1578 1575 4 OR .ITEM_LISTL.J, ITMSW_ITMCOD)] EQL ACLSC_DELETEACL 

; 1579 1574 4 THEN SHARE = 0; 

: 1580 1575 3 END) 

§ 138) 1226 2 ELSE RETURN SS$_ACCVIO; 

3 1388 1378 ; ! Initialize all common (to both types of objects) storage. 

3; 1585 1580 CHSFILL (0, 2*ITMSS_ITEM, DVI_ATR_LIST); 

; 1586 1581 CHSFILL (0, DSC$C_S_BLN, LOCK_RESNAM); 

: 1587 1382 LOCAL_LOCKID = 0; 

>; 1588 158 

3 1288 1288 ! Set up the lock resource name prefix. 

; 1591 1586 2 LOCK_RESNAMCDSC$W_LENGTH] = RSN_S_PREFIX; 

: 1238 1587 LOCK RESNAMCDSCS$A_POINTER] = RESNAM TEXT; 

; 159 1588 2 CHSCOPY (.$BBLOCK C.LOCK_PREFIXC.LOCAL_OBJTYP], DSC$W_LENGTH) 

: 1594 1589 2 ‘ LOCK C.LOCK_PREFIXC.LOCAL_OBJTYPJ, DSCSA-POINTERI, 

: 1595 1590 2 0 

: 1596 1591 2 RSN_S_PREFIX, RESNAM_TEXT); 

3; 1597 1338 § 

3; 1598 159 ! If the call is from user mode, take out a lock to form the parent lock ID 
; 13% 133% 2 ' for all ACL locks. This facilitates releasing them at image rundown. 

: 1601 1596 é IF .CALL_ACMODE EQL PSLSC_USER 

: 1602 1597 2 THEN ‘ 

: 1603 1598 IF .PARENT_ID EQL 0 

: 1604 1599 THEN 

: 1605 1600 BEGIN 

3; 1606 1601 STATUS = SCMKRNL (ROUTIN = GET_PARENT_LOCK); 

; iene 1606 IF NOT .STATUS THEN RETURN .STATUS; 

> 1609 1604 , 

3; 1610 1808 ! Do any initial setup for the object. For files, this means opening the 

: 1611 1606 : specitied file if it is not already open. for devices, this means assigning 
: 1ol¢ 1607 ! a channel is one is not already assigned. for most other objects, noth ng 
5 oF 100 ! special is needed. 

: Hy OF 12i9 case -LOCAL_OBJTYP FROM MIN_OBJECT_TYPE TO MAX_OBJECT_TYPE OF 

; 1819 1ol¢ CACLSC_FILE): 

: 1618 161 BEGIN 

: 1619 1614 

: 1960 1615 ! Initialize storage. 

3: 1621 1616 

: 1622 1617 CHSFILL (0, FIBSC_LENGTH, FILE_FIB); 


oo. 
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LOADSS.SRC 
IF .IO_CHANNEL EQL 0 
THEN 


END; “3 
! Now that there is a channel to the device, locate the ACL queue head. 


IF_ .STATUS 
THEN 


' Number of args 
! Channel number 


cL 
LISf); 


CMK-ARG_ 
STATUS = 


CACL$C_JOBCTL_QUEUE]: 
STATUS = SS$_BADPARAM; 
END; 


CACLSC_COMMON_EF_CLUSTER): 
BEGIN 


IF .OBJECT DESCCO) EQ. 0 
THEN RG.LISTEOD = 1 


CMK_ARG_LIS = 1 
CMK-ARG-LISTC1] = OBJECT. 
STATUS = SCMKRNL (ROUTIN 
ARGLST 
END: 
CACLS¢ LOGICAL_NAME_TABLE): 


N 
IF .OBJECT DESCCO) EQL 0 
THEN RETURN ea 
1 


CMK_ARG_LISTCO]~= 1 
= OBJECT_DE 

( = 

AR = 


' Number of args 


DE i ' Cluster name descr 
= K 


! Number of args 
: ! Logical name table descr 
T_LNT_A 
K_ARG_L 


CMK-ARG_LIST nl 
STATUS = SCMKRNL ROUTIN 


ST 

END; 

CACL$C_PROCESS): 
BEGIN 
IF .OBJECT_DE 
THEN RETURR 
CMK_ARG_LIST 
CMK ARGALIST 
STATUS = SCMK 
END; 


CACL$C_GLOBAL_SECTION): 


QL 
AR 

1; ' Number of args 

0B JE i Process name descr 
GL 
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3: 1737 17 BEGIN 

3 1738 17 i IF .OBJECT DESCLO) EQ. 0 

3 i7 1734 THEN RETURN ; _INSFARG; 

3; 1740 1735 CMK_ARG_LIST = 1; ' Number of args 

: 1741 17 § CMK-ARG_ ='{3t 1j = OBJECT_DESC; ' Section name descr 

: 1748 P17 STATUS = SCMKRNL (ROUTIN™= GET_GBL_ACL 

: 1243 7 8 tt ARGLST = CMKTARG-LISf); 

: 1745 ioe 

: 1048 1268 TES CINRANGE, OUTRANGE): STATUS = SS$_BADPARAM; 

: 176 174 4 

: 1749 \eee ! If any error have occurred, leave nom. 

FH 1781 1768 IF NOT .STATUS 

3 17 ¢ 174 THEN 

: 175 1748 BEGIN 

3: 17546 1749 IF LOCAL i EQL 0 THEN SDASSGN (CHAN = .IO_CHANNEL); 

we om 1 as 

: 1757 1r36 

; 1758 175 ! Now that the device has been identified, and a channel assigned if needed, 
: 1722 1738 form phe, Fonotnder of the lock resource name. Then do the appropriate Lock 
3 or unlock. 

: 1761 175 

$ 1766 1989 IF .LOCAL_OBJTYP EQL ACLSC_FILE OR .LOCAL_OBJTYP EQL ACLSC_DEVICE 

: 176 1758 THEN 

3; 1764 1759 BEGIN 

; 1702 1099 LOCAL TMP_LEN; 

3 HS t4 1708 ! Build the remaining portion of the lock name. 

3; 1769 1764 DVI_LATR_LISTCO, ITMSW_ irc OP = gyis. Mayes 

: 1770 1765 VI-ATR_LISTCO, Be $W_BUFSIZ) = 31 PREF 

3 1771 1766 DVITATR_LISTCO, ITMSL_ ~BUFADR = RESNAR STEXTERSN, t * DEVNAM); 

: 177 176 DVI-ATR_LISTCO, ITMSL_RETLEN) = TMP_LER; 

: 177 P 1768 TATUS = S$GETDVI (CHAN = .IC_CHAN 

> 177% P 1769 ITMLST = DVI_ATR LIST, 

; 1775 1770 10SB = LOCAL” 10S6); 

: 1776 1771 IF .STATUS THEN STATUS = .LOCAC_10SB{0); 

: 1777 1778 IF NOT .STATUS 

3; 1778 177 THEN 

; 1779 1774 4 BEGIN 

3 1709 1775 4 IF .LOCAL cael EQL 0 THEN SDASSGN (CHAN = .IO_CHANNEL); 

3 17a 1778 4 Sua » STATUS 

$ 1788 1778 

3: 1784 177 LOCK RESNAMCDSCS$W_LENGTH) = .LOCK_RESNAMCOSCS$W_LENGTH] + .TMP_LEN; 
3: 1785 1780 coc -OBJTYP EQL ACLSC_FILE 

: 138 1782 GIN 

: 1788 17 i 4 RESNAM_TEXTCRSN_W ~F 1D Num} ca atic tind ttt 

; 17S 17 & RESNAM TEXTCRSN W FID-SEQ) = .FILE-FIB Aer FID SEQ); 

: 1790 7 5 4 LOCK. RESNAMCDSCSW-LENGTH) = .LOCK_RESNAMCDSCSW_LENGTH) + 4; 

: 1736 17, 3 END; 

: 179 1788 


H 2 
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: 1794 1789 ' For files, process the attribute List, and poss it chrough to the ACP. ; 
3 1. 1? » ! for all other objects, the attribute processing is done here. ° 
: 1799 1780 IF .LOCAL_OBJTYP EQL ACLSC_FILE é 
; 1798 179 THEN : 
: 17 1794 BEGIN : 
3 1800 1795 : 
; 190) 1738 ! Build the ACP attribute List. ‘ 
; 1808 1798 STATUS = LIBSGET_VM (ZREF ((.ITEM_COUNT + 1) * 8), ACP_ATR_LIST); : 
> 1804 1799 IF NOT .STATUS : 
; 1805 1800 THEN : 
: 1806 1801 4 BEGIN : 
3 1807 1 4 4 IF .LOCAL CHANNEL EQL 0 THEN SDASSGN (CHAN = .JO_CHANNEL); : 
3 1808 1803 4 RETURN .STATUS; : 
: 1809 OO END; ° 
; 1810 1805 FUNCTION _CODE = I0$_ACCESS; : 
3 1811 1806 ACP_ATR_PTR = 0; ; 
; 181 180 INCR J FROM O TO .ITEM_COUNT - 1 : 
; 181 1808 DO : 
; 1814 1809 4 BEGIN : 
; 181 1810 4 IF PROBER (REF (0), SREF CITMSS_ITEM), ITEM_LISTC.J, 0,0,0,0)) : 
> 1816 1811 4 THEN : 
: 1817 181g 5 BEGIN : 
; 1818 1813 5 TEM_CODE = .ITEM_LISTC.J, ITMSW_ITMCOD); ; 
; 1819 1814 3 ITEM-SIZE = .ITEMTLISTE.J, ITM$W~BUFSIZ); ; 
: 1820 1815 ITEM-ADDR = .ITEM“LISTC.J, ITMS$L-BUFADRI; : 
: 1821 1816 § END : 
; 1832 1817 4 ELSE : 
: 182 1818 5 BEGIN : 
> 1824 1819 5 STATUS = SS$ 10; : 
> 1825 1820 5 LIBSFREE_VM TXREF ((.1TEM_COUNT + 1) * 8), ACP_ATR_LIST); ; 
> 1826 1821 5 IF .LOCAC_CHANNEL EQL 0 TREN SDASSGN (CHAN = .TO_CRANNELS; : 
> 1827 18 j 5 RETURN .STATUS; : 
: 1828 1823 4 END; : 
; 1829 1824 4 IF .ITEM_CODE GTR MAX_ACL_ATR ; 
; 1830 1825 4 THEN : 
; 1831 1826 5 BEGIN : 
3 1852 18 3 STATUS = SS$_BADPARAM; : 
3 183 1828 LIBSFREE_VM TXREF ((.ETEM_ COUNT + 1) * 8), ACP_ATR_LIST): 3 
> 1834 1829 5 IF .LOCAC_CHANNEL EQL 0 TREN SDASSGN (CHAN = .TO_CRANNELS; : 
3 1835 18 0 5 RETURN .STATUS; : 
3 1836 1831 4 END; : 
: 18 7 1 ; 4 : 
31 1 4 IF .ITEM_CODE EQL ACL$C_RLOCK_ACL : 
; 1839 1834 4 OR .ITEMCODE EQL ACL$C"WLOCK"ACL : 
; 1840 1835 4 THEN : 
> 1841 1 6 BEGIN : 
; 1848 18 IF .ITEM_SIZE LSSU 4 : 
3 184 1838 THEN : 
> 1844 1839 6 BEGIN : 
: 1845 1840 6 STATUS = SS$_BADPARAM; ; 
; 1846 1841 6 LIBSFREE_VM TZREF ((.1TEM_COUNT + 1) * 8), ACP_ATR_LIST); | 3 
; 136 1 : 6 IF .LOCAC_CHANNEL EQL 0 TREN S$DASSGN (CHAN = .TO_CRANNELS; 
3 1848 1 RETURN .STATUS; | 
> 1849 1844 END; 
; 1850 1845 IF NOT EXESPROBEW (0, .ITEM_SIZE, .1TEM_ADDR) | 
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; 183 1846 5 THEN 
1 184 é BEGIN = 
i ike ST BSTREE Gm AREY (. ITEM_COUNT + 1) * 8), ACP_ATR_LIST); 
; Bs : i é Hee OEE CHANNEL cor 0 TREN SDASSGN (CHAN = .TO_CRANNELS; 
: 1856 1 i RETURN STATUS; 
189 1 : QL ACLSC_RLOCK_ACL 
$s STATUS'S SENG CLRRODE =H TEER OemAGDE CORE CERRE be 
: 1800 p i 55 LKSB LOCAL 1088. 
e s i 
: 188) z 2$ PARID = (IF .CALL_ACMODE EQL PSLS$C_USER 
; 1868 P 3 THEN .PARENT_ID 
18 BAS 5 = LFEEE Oourve oe 
: = 
: 1882 p i $i estan LCKSM“SYNCSTS OR 
: 1888 4 186 LCKSM"SYSTEM, 
: ibe 1 Q ACMODE = PSLSC_USER): 
: 18e8 1864 IF .STATUS THEN STATUS = .LOCAL_I0SBLO); 
: 1870 1865 ; IF NOT STATUS 
: 1871 1866 
187 ser rat tty TEM_COUNT + 1) * 8), ACP_ATR_LIST): 
: 1878 1888 3 apttta tect eat O TREN SDASSGN (CHAN = .T0_CRANNELS; 
: 1893 1870 § RETURN STATUS; 
: 1899 1872 5 CHSCOPY (4, LOCAL_10SB(22, 
: 1838 ise 8 [TEM_SIZE, .ITEM_ADDR); ! Copy Lock-id 
: 1879 1874 § I TEM_ a 
: 1880 1875 3 END 
: 1882 1877 4 ELSE IF .ITEM_CODE EQL ACLS$C_UNLOCK_ACL 
1 
: N 
: 18BS 1860 TF ITER. size LSSU 4 
> 1886 1881 
1887 1 : 4 BEGIN pre 
1888 re PIOSCREE ua TEM_COUNT + 1) * 8), ACP_ATR_LIST); 
: 188) 18BS 3 ger s3 tae i (¢-TtER co SDASSGN (CHAN = .TO_CRANNELS; 
: ibe, 1886 g RETURN .STATUS; 
: 1898 1885 3 IF NOT EXESPROBER (0, .ITEM_SIZE, .ITEM_ADDR) 
+ 1894 1889 THEN 
: 1898 1 6 BEGIN esis 
ii 1892 PIBSFREE_VA Tt TEM COUNT + 1) * 8), ACP_ATR LIST); 
We RR Lek VEutmne, £ac'B°TAERDASson ich SrOTEAM, 
: 1899 1894 RETURN .STATUS; 
; 190 38 ; CHSCOPY’ (. ITEM_SIZE, -ITEM_ADDR, 0, 4, LOCAL_LOCKID); 
: 1908 1 39 ND 
: 1904 i 3 : ELSE GIN 
: 1306 H 1 ' Save the converted attribute code and other information. 
+ 190 1902 
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31 1903 ACP_ATR_LISTC.ACP_ATR_PTR, ATRSW_TYPE] = .ACL_TO_ATR_TABL.ITEM_CODE]; ; 
; 1909 1904 IF TITEM_CODE EQL~ACLSC_AODACLENT OR .ITEM_CODE EQL ACL$C_DELACLENT : 
; 1910 1905 R_.ITEM-CODE EQL ACLSC"MODACLENT OR .ITEM-CODE EQL ACLSC"DELETEACL : 
3 1911 1 $ THEN FUNCTION CODE = 108 MODIFY; ; 
3 191¢ 190 ACP AATRALISTE-ACEATRPTR, ATRSW_SIZE] = ,ITEM_SIZE; ; 
; 191 1908 ACP-ATR-_LISTC.ACP-ATR-PTR, ATRSL_ADDR] = .ITEM~ADDR; ‘ 
; 1914 19 ACP-ATR-PTR = .ACP_ATR_PTR + 1; : 
; 1915 1910 4 END} : 
Be RH 2 : 
; 1218 1318 ! Tie off the attribute descriptor List. ; 
: 1920 1915 ACP_ATR_LISTC.ACP_ATR_PTR, ATRSY_TYPE] = 0; : 
; 19 1 1918 ACP-ATR_LISTC.ACP_ATR_PTR, ATRSW-SIZEJ = 0; : 
: 4 § 1318 ! Initialize the FIB, and call the ACP to process the attribute List. ; 
; 1925 1920 FILE FIBCFIBSL_ACLCTX] = .ACL_CONTEXT; ; 
; 1926 P 1921 STATOS = SQIOW"(CHAN = .10 CHANNEL : 
> 1927 P19 j FUNC = .FUNCTION CODE, ; 
; 1928 P 19 10SB = LOCAL_10SB : 
: 1929 P 1924 Pi = FILE_FIB_DESC : 
; 19 1925 P5 = .ACP-ATR-LISTS; ; 
> 1931 1926 IF .STATUS THEN STATUS = [LOCAL 1OsBC03; ; 
; 1938 1927 IF .STATUS THEN STATUS = .FILE FIBCFIB$L_ACL_STATUS); : 
; ty 4 $ IF .LOCAL_CHANNEL EQL 0 THEN SBASSGN (CHAN =".10_CHANNEL); : 
; 1935 1986 STATUS2 = LIBSFREE_VM (ZREF ((. ITEM COUNT + 1) * ). ACP_ATR_LIST); : 
; 1936 1931 IF .STATUS AND NOT~.STATUS2 THEN STATUS = .STATUS2; : 
; Hd 1938 ! If an unlock request was made on the file's ACL, do it now. : 
: 1940 1935 IF .LOCAL_LOCKID NEQ 0 THEN STATUS = $DEQ (LKID = .LOCAL_LOCKID); : 
: 1943 1937 gS 
; 1928 1938 ! For non-file objects, the queue head has been located; loop through : 
3 1944 1939 ! the item List performing the actions specified. ° 
3 1945 1940 : 
1309 1922 § © Soe, ; 
> 1948 1903 CMK_ARG_LIST(O] = 3; : 
> 1949 1944 CMK“ARG_LISTC1) = .TEM_COUNT; : 
; 1950 1945 CMK-ARG_LIST é = ,ITEM“LIST; : 
; 1951 1966 CMK ARG UIST = .SHARE; : 
; 193¢ P 194 STATUS = SCMKRNL (ROUTIN = ACL_DISPATCH : 
> 195 1948 ARGLST = CMK-ARG_LISTS; : 
St ne ; 
: 1956 1951 ! If necessary, deassign the channel assigned. : 
; 1338 1988 IF .LOCAL_CHANNEL EQL 0 THEN SDASSGN (CHAN = .10_CHANNEL); : 
; 1960 1988 ! If necessary, return the context. : 
> 196 195 IF .CONTEXT NEQA 0 : 
; 1968 1998 THEN IF PROBEW (ZREF (0), ZREF (4), . CONTEXT) ; 
3; 1964 195 THEN ‘ 
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: 1965 1960 BEGIN : 
:1 6 1 IF .LOCAL_OBJTYP EQL ACL SC FILE ; 
21 19 THEN .CONTEXT = .FILE FIBCFIBSL_ACLCTX] : 
: 1968 1 ELSE . CONTEXT = .ACL_CONTEXT; ; 
: 1969 1964 EN? ; 
; 1970 1965 ELSE STATUS = SS$_ACCVIO; : 
: 1978 196? 5 RETURN STATUS: ; 
: 1352 1988 END ! End of tine SYS$CHANGE_ACL 
+ INFO#250 L4:1779 rresepso eS stomps - ; 
; Referenced LOCAL symbol TMP_LEN is probably not initialized ‘ 
.PSECT $PLITS,NOWRT ,NOEXE , 2 3 
00000023 00000022 00000021 00000020 0000001F 00000000 0054c P.AFL: .LONG 0, 31, 32, 33, 34, 35, 36, 37, 38, 39 : ; 
00000027 $00 $036 itd 00000024 Eee : : 
.EXTRN SYSSCMKRNL, SYSSOPEN ; 
“EXTRN SYS$QIOW, SYSSASSIGN 
SEXTRN SYSSDASSGN, SYSSGETDVI 
“EXTRN SYSSENQ, SYSS$DEQ 
.PSECT S$CODE$,NOWRT,2 
OFFC 00000 ENTRY SYSSCHANGE ACL, Save R2,R3,R4,R5,R6,R7,R8,- ; 
SE FC68 ce 9E 0000 MOVAB 920(SP) SP : 
34 00 00000000' EF os 28 2c 9007 MOVCS #40, P.AFL, #0, #52, ACL_TO_ATR_TAB ; 
00000000" EF D4 O01 CLRL  CHANGE_ACMODE ; 
50 14 AC D0 0001 MOVL § ACCESS“MODE, RO ; 
50 05 0001C TSTL = RO : 
0D 1 OO1F BEQL=sés1$; ; 
60 04 00 0c 000 PROBER #0, #4, (RO) ; 
6A 13 00024 BEQL : 
00000000" EF 60 dd 00026 MOVL (RO), CHANGE_ACMODE ; 
0 oC 0 D 1$: MOVPSL P ; 
00000000" EF 50 02 16 EF F EXTZV. #22, #2, PSL CALL ACHODE ; 
00000000" EF D9 0 MOVL § CHANGE ACMODE, R : 
00000000' EF Q 1 0005F cMPL RO. CACL_ACMODE : 
50 00000000' EF D 28 MOVL § CALL_ACMODE, RO : 
00000000' FF 0 D 4F 2% MOVL RO, CHANGE ACMOD : 
3 00000000' ai p 6 CMPL § CHANGE_ACMODE, # : 
D 1A D BGTRU 6$ ; 
50 06 AC 3 F MOVZWL CHANNEL, RO : 
19 AE 2 ry : MOVW RO, LOCAL_ CHANNEL ; 
20 A MOVW RO. IO CHANN . : 
6 20 A MOVZWL JO_CHARNEL R ; 
1 F BEQL : 
0 p 1 MOVL  R8, RO : 
000000006 74 JSB LOCSVERIFYCHAN ; 
D 7A MOVL =R STATUS : 
BE 7D BLBS STATUS, ; 
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0598 31 BRW 81$ 
50 08 A : 3$ OV OBJECT_TYPE, RO 
029 9 BRW 4 
60 04 0 4$: PROBER #0, #4, (RO) 
6D 5$: BEQL 
56 i p : HOVE (RO), LOCAL_OBJTYP 
07 6 pi 0009 CMPL OCAL_OBJTYP, #7 
4 18 O9A BLEGU 7$ 
50 4 BO ¢ 6$: MOVL #20, RO 
50 Oc aC 09 tf 7$: MOVL § OBJECT_NAME, RO 
Be AG BEQL 8$ 
60 08 9 of OA6 PROBER #0 #8, (RO) 
13 OOOAA BEQL 12$ 
FO AD 60 3C 000A MOVZWL (RO), OBJECT 
F4 OAD 04 Ad D 008 MOVL 4 ROS OBJECT. (OE Sc+4 
50 F4 AD DO 000B MOVL  OBJECT_ DESC RO 
51 FO AD 00 00089 MOVL OBJECT-DE i 
53 04 000BD CLRL oR 
000000006 9 16 OOBF JSB EXESPROBER 
05 F 00¢5 BLBS RO, 9$ 
62 11 000C8 BRB 15$ 
FO AD 7C OOOCA 8$: CLRQ OBJECT_DESC 
00000000' EF D4 900¢D 9$: CLRL ACL CONTEXT 
1C AE 04 0000 CLRL 28(SP) 
1c OA D3 0006 TSTL CONTEXT 
12 13 00009 BEQL 10s 
1¢ AE D6 000DB INCL  28(SP) 
1c BC 04 0 op OODE PROBEW #9 #4, @CONTEXT 
47 13 OOOE BEQL ‘1 
00000000" EF 1c «6BC OO OOE MOVL § @CONTEAT, ACL_CONTEXT 
SA 01 90 0 OED 10$: MOVB 
59 10 AC DO 000FO MOVL ITEM_LIST, R9 
50 D4 O00F4 0 ee 
51 50 0c c5 O00F6 11$:  MULL3 4 2, i 
6149 0c 00 ¢ OOFA PROBER "is, Re RID ERO 
28 13 QOOOFF 12$:  BEQL ‘ § 
6149 9F 00101 PUSHAB (R1)CR9) 
3E BS 001 TSTw  a(SP)+ 
Q 12 001 BNEQ 13$ 
57 0 pO 001 MOVL J, ITEM_COUNT 
2B 1 1 BRB iis 
02 Al 3 10D 13$: PUSHAB 2(R1)CR9) 
51 9 3C 00111 MOVZWL a(SP)+, R1 
01 51 81 114 CMPW ORT, #1 
OF 3 00117 BEQL 4=s«+14$ 
02 1 Bi 00119 CMPW ORT, #2 
OA 13 0011C BEQL 4=s«*14$ 
03 1 8} 11 CMPU Rk, #3 
5 1 1 Bea. «=s«14$ 
06 1 81 123 CMPW ORT, #6 
8 2 1 BNEQ 16$ 
A 94 00128 14$ CLRB = SHARE 
4 11 OO12A BRB los 
50 C pO 0012C 15$ MOVL #12, RO 
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IESS0r198E ON:Eh:9) YMG BL UsgcHR ve 0742, | ? 
YSACLSRV service + 1561 : 
VOe-006 SCHANGE_ACL system , 17 RET ria 147483647 18 ae 136) 
50 7FFFFFFF BF rs 130 168: ADBLE ogee Wb, 24, DVI ATRLL fem : 
6E #8, LOCK_RESNAM : : 
18 06 we i movcS #0, (SP), * 15 ; 
08 sed 00000099" he a i CLA Lemar soa : 138s 
4 0 0 RO . : 
0000000' EF . BF 001 MOVA® ECR PRE TRELOCACCESTeEy” ; ; 
" EF 00000000" EF MOVL tbe K. RESNAM_TEXT : ; 
20000000 9 00000000 ers 0 i moves ab(R0), #0," #8, ee 
00 04 80 ' eF 1 CALL_ACMODE, #3 ; : 
2 Booo0000" EF oy Ooirt cmp CALL pan ; 
05 5 42 00178 PFE PARENT. ID ; : 
00000006" FF 08 OIA anes 185 ; 1601 
7E De 00182 PUSHAB GET PARENT _LOCK ; ; 
0o000000v EF 9F 00184 CALLS #2, SYSSCMRRNL 2 600 ; 
000000006 58 30 D9 00191 Blas STATUS. 18S Faas : 
B RW 81$ : ; 
* ouge $1 80197 CASEL LOCAL oauTYP, #1, #6 ; 
6 0011 O19E 198 ° 6$-198.- ; ; 
13¢ OOF? A OO1A6 -19$.- ; : 
0131 Bist 0163 014 sr 
$55-198.- : 1741 : 
333 198 ; 1617 ; 
"90 2c OO1AF 208: MOVES 0, (SP), #0, #64, FILE_FIB - 1618 
6E , #8, FILE_FIB_D : ° 
0040 8F ” bE 0090 66 2c 00189 MOVCS #0, (SP), #0 ; ; 1619 : 
08 sas 10n0 BF 98 lel MOVABY FILE FIB "FILE 18, DESC#4 1631 ; 
00D0 CE 40 001¢7 ROVE, CHANGE -RCMODE. “FILE” FIB+46 > 1625 : 
0090 CE 9 MOVB CHANGE. A j 
008 CE 00000000" 5 BS OO1b? TstL RB. 3 
13 00109 4g : 1632 : 
0087 3C OO1DE 218: ROVES #0. (SPD, #0, #80, $RMS_PTR 
ee Sa Ye oe Ee ned ae Re : : 
A AD 00020000 § \e0 ROVE re § et mic ; 
BF AD 5 Se OoltD nov” (8 iat Et “Sans PTRSGG : 
ED aug ge 6 ROVE, OBJECT “DESC 6, SMS PTRADe, op : 163? 
(SP), & ; : 
D4 AD FO Q 30 MovcS #0, : : 
Ge 14 gSRMS BTR ; : 
0060 8F 00 FF40 D Ye 4578, : 3 
° Frég =6cD 6002 br 4 ie poe fect E RES” SNARE SRMS_PTR+4 : 

aah co 0008 FE 3h BOVAR FACE SEXP-WAAE. SRMS_PTRO12 

Free, CD FESO CD SE O0D9F 
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08 AE BLBC SHARE, 22$ ; 3, 
B6 AD 4302 t 66 i] nov s 718, FILE_FAB+22 : : | 
B6 AD 0 F B 41 228: MmOVW #8195, FILE_FAB+22 F 3 | 
EA AD 02 04 00006009" EF Be t $e: INSV._ CHANGE _ACMOBE, #4, #2, FILE_FAB+74 : : 
AO AD OF 1 PUSHAB FILE Fag : F 
000000006 90 Qi F 4 CALLS #1, SYSSOPEN : : 
B 0 D B MOVL RO, STATUS ; ; 
20 AE AC AD 8 nov BILE FAB+I2, 10_ CHANNEL : : 
58 1 bg 8 34s: MOVL # STATUS : : 
4 Bf 68 258: BLBC STATUS, 278 F ; 
— 7C B CLRO = = (SP) : F 
7E 7C€ 00260 CLRQ  =(SP) ; : 
7E 04 gf CLRL = = (SP) ; : 
00E4 cE F 1 PUSHAB FILE_FIB_DESC : F 
se. t3 CLRQ.  =(SPY : : 
F8 AD OF 0 7 PUSHAB LOCAL_10SB ; : 
3 pp 7A PUSHL # ; 
7E 48 AE 3C 0027¢ MOVZWL 10 CHANNEL, (SP) : 
7E D4 00280 CLRL = (SP) ; 
000000006 00 oC FB 00 82 CALLS #12, SYS$Q10W F 
5B 50 D 8 MOVL RO, STATUS ; 
e1 58 &9 00 aC BLBC STATUS, 27$ ; 
B F8 AD 3C 0028F MOVZWL LOcAL_fose, STATUS ; 
38 (11 0 9 BRB 0$ : 
38 D 95 26$:  ‘TSTL Rg : 
17 12 0029 BNEG 27S ; 
FO AD D5 00299 TSTL BJECT_DESC ; 
$6 13 90 9¢ BEQL 4$ F 
E 7C 0029 CLRO =(SP ; 
28 «AE OOF 00 A PUSHAB 10_CHANN F 
FO AD 9F OO2A PUSHAB OBJECT_DES ; 
000000006 90 04 FB 0 Ab CALLS #4, SYSSASSIGN ; 
8 50 0D AD MOVL RO TAT : 
03 5B 8 0 80 27$:  BLBS STATUS, 28$ : 
0179 31 0028 BRW 60$ ; 
30 AE 01 00 0286 288:  MOVL #1, CMK_ARG_LIST : 
34 AE AE 3C O02BA MOVZ2WL 10° CHANNEL, ~CMK_ARG_LIST+4 ; 
AE 9F OO2BF PUSHAB CMR_ARG_LIST F 
00000000v EF 9F 00 ce PUSHAB GET-UCB~ACL : 
6D 11 002¢ BRB : 
58 14 DO OO2CA 29$:  MOVL #20, STATUS ; 
ve Y CD 30$: BRB : 
FO AD OD CF 31$: =‘TSTL JECT_DESC : 
4B 1 D2 BEQL $ ; 
30 AE 01 p D4 MOVL #1, CMK_ARG_LIST ; 
4 AE FO AD 9E 00208 MOVAB OBJECT DESC; CMK_ARG_LIST+4 ; 
; AE 9F 00200 PUSHAB CMK_ARG_LIST : 
00000000v FF 9F 00260 PUSHAB GET-CEBLACL : 
F 11 E6 BRB $ : 
FO AD ? £8 32$:  ==TSTL 0B JECT_DESC ; 
; EB BEQL 6 ; 
30 AE 1 ED MOVL #1, CMK_ARG_LIST ; 
4 AE FO AD 9E O0CF MOVAB OBJECT DESC; CMK_ARG_LIST+4 ; 
; AE OF £6 PUSHAB CMK_ARG_LIST ; 
00000000v EF 9F OUeF PUSHAB GET LNT~ACL ; 
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FO AD ODF 6 O1 333: Pte QBJECT_vESC : 1723 
19 iF 4 i$: BEQL a3 . : ; 
30 01 6 #1, CMK_ARG_LIST + 1725 ; 
4 AE FO AD OE A MOVAB OBJECT BESC; CMK_ARG_LIST+4 + 1726 ; 
: AE 9F F PUSHAB CMK_ARG_LIST + 1728 ; 
00000000v FF 9 \¢ PUSHAB T“PCB-ACL : ; 
FO AD D3 § 1A 35$ TSTL JECT_DESC + 1733 ; 
06 0310 BNEO : ; 
50 0114 8F ¢ If 36$ MOV ZWL #276, RO : 1734 ; 
30 AE 01 b0 5 37$: MOVL #1, CMK_ARG_LIST + 1735 ; 
34 AE FO AD 9E 00329 MOVAB OBJECT BESC; CMK_ARG_LIST+4 t 1736 ; 
30 AE OF 0032E PUSKAS CMK_ARG_LIST + 1738 ; 
00000000v EF 9F 00331 PUSHAB GET~GBL~ACL : : 
000000006 00 2 FB 00337 383: CALLS #2, SYSSCMKRNL : : 
5 0 DO 0033E MOVL RO, S : ; 
4c 5B £9 00341 398 BLBC STATUS, 42$ + 1746 ; 
18 AE D4 00344 CLRL ©. 24( SP) : 1757 ; 
01 56 D1 00347 CMPL LOCAL_OBJTYP, #1 : : 
05 12 O34, BNEG  40$ : ; 
18 AE D6 0034C INCL 24(SP) : ; 
Q 11 0034F BRB 41$ : ; 
02 6 01 00351 40$ CMPL LOCAL_OBJTYP, #2 ; : 
59 12 00354 BNEQ 43$ : F 
78 AE 00F00017 8F DO 00346 41$: MOVL #15728663, DVI_ATR_LIST + 1765 ; 
7C AE 00000000" EF 9E 0035E MOVAB RESNAM TEXT+8, DVI-ATR_LIST+4 + 1766 : 
0080 CE 24 «AE OE 8 66 MOVAB TMP_LEN, DV!_ATR_LIST+8 : 1767 ; 
7E 7C 0036C CLRQ  =(SP) + 1770 ; 
7E D4 0036 CLRL = = (SP) : : 
F8 AD OF 0037 PUSHAB LOCAL_IOSB : : 
0088 CE OF 00 7 PUSHAB DVI_ATR_LIST : ; 
7E bs 0377 CLRL = = (SB) : ; 
7E 38 «=6AE «3C 00379 MOVZWL IO_CHANNEL, -(SP) : : 
7E 04 0037D CLRL = (SP) : ; 
000000006 00 08 FB O037F CALLS #8, SYSSGETDVI ; ; 
58 DO 00386 RO, STATU : : 
48 58 : 0 89 STATUS, 4 : 1771 : 
5B F8 AD 3C 0038C MOVZWL LOCAL ose STATUS ; ; 
41 5B £9 00 30 42$: BLBC STATUS, 45§ : 1772 : 
00000000" EF 24 AE Ag 039 ADDW2 TMP_LEN, LOCK_RESNAM : 1779 
10 18 AE CE 98 BLBC 24 43$ : 178 
9000000 - 0094 cE D OF OVL FILE Fip+4, RESNAM_TEXT+24 : 178 
0000000" EF 4 A Ag ADDW2 #4, COCK RESNAM : 17 
03 18 OA O3AF 43$:  BLBS g4isP), &4 : 1798 
0211 31 00383 BRW 5$ F 
2c. COAE COS Bé 44$ PUSHAB ACP_ATR_LIST ; 
08 AE 57 0 7 B ASHL = #3, res COUNT, 8(SP) : 
08 AE C B ADDL2 #8. B(SPY : 
18 AE 08 AE b ¢ OVL (§p), 24(SP) F 
18 AE 9F 003C¢ PUSHAB 24 : 
000000006 90 F CA CALLS oe LIBSGET_VM : 
D D1 MOVL RO, STATU ; 
0 § D4 45$: BLES STATUS, 46$ : 1799 
000 07 BRW 608 : 
14 AE DO OO3DA 46$:  MOVL #50, FUNCTION_CODE > 1805 
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SYSACLSRV 16-Sep-1984 01:51: AX-11 Bliss-32 V4.0-74 P 5 
von 008 SCHANGE_ACL system service 12-80-1382 93:25:84 LOADSS. REISYSACL SRV B82; 1 J 

68 12 0049 BNEQ 66$ : 

04 08 AE of 136 CMPL TIEM.SIZE, #4 : 

1¢ . 498 BGEQU 61 : 

S55 14 DO 0049A 58s: MOVL #20, STATUS : 

c AE 9F 00490 59$: | PUSHAB ACP ATR_LIST : 

04 AE AE po 4A MOVL 8(SP), &(SP : 

4 AE F OO4A PUSHAB 4(SP) : 

000000006 00 02 FB 004A CALLS #2, LIBSFREE_VM : 

10 AE BS OO4AF 60$:  TSTW LOCAL_CHANNEL : 

¢ 1 4B2 BEQL 62$ : 

8 11 00484 BRB 63$ : 

50 o¢ AE 06 0486 61$ MOVL § ITEM_ADDR, RO : 

1 AE DO OO4BA MOVL ITEMTSIZE, R1 : 

53 D4 O4BE CLRL = RB : 

000000006 99 16 04C¢ JSB EXESPROBER : 

28 0 E8 00466 BLBS RO, 64$ : 

5B 0¢ DO 004¢9 OVL #12, STATUS ; 

3¢ AE 9F 004CC PUSHAB ACP_ATR_LIST : 

04 AE 8 AE 00 OO4CF OVL 8 (SP), &(SP) : 

04 AE OF 00404 PUSHAB 4(SP) : 

000000006 00 02 FB 00407 CALLS #2, LIBSFREE_VM ; 

10 AE B5 004DE TSTW LOCAL_ CHANNEL : 

0B 12 004E1 BNEQ 63$ ; 

7E 20 AE 3C 004E3 62$:  MOVZWL IO_CHANNEL, -(SP) : 

000000006 00 gt FB O04E7 CALLS #1. SYSS$DASSGN F 

012D 31 OO4EE 63$: BRW 81$ : 

04 00 OC BE 08 AE 2c SOF} 64$:  MOVCS ITEM_SIZE, @ITEM_ADDR, #0, #4, LOCAL_LOCKID ; 

37 11 OO4FA 65$: BRB 69$ : 

50 2C BE48 7 OO4FC 66$:  MOVAQ @ACP_ATR_LISTCACP_ATR_PTRI, RO F 

02 Ad 44 AEGA F7 00501 CVTLW ACL_TO_ATR_TABLITEM_CODE], 2(RO) 3 

01 5A D1 00507 CMPL ITEM_CODE,~#1 ; 

OF 13 0050a BEQL 67 : 

02 5A D1 0050C CMPL = ITEM_CODE, #2 F 

OA 13 90508 BEQL 67 : 

03 5A D1 00511 CMPL =ITEM_CODE, #3 ; 

05 13 00514 BEQL 67$ ; 

06 5A 01 00516 CMPL ITEM_CODE, #6 : 

04 iF 051 BNEQ  68$ ; 

14 AE 6 p 0518 67$: MOVL #54, FUNCTION _CODE : 

3¢ BE48 7F OOS1F 68$: | PUSHAQ @ACP_ATR LISTCACP_ATR_PTR) : 

9 C Ar 80 05 ; MOVW ITEM_SIZE, acen)s : 

5 2C BE48 7E 005 MOVAQ @ACP"ATR_LISTCACP_ATR_PTRI, RO ; 

04 Ad OC Ar DO 0052c MOVL  ITEM™ADDR, 4 (RO) : 

5; D6 00531 INCL ACP_ATR PTR : 

02 56 7 F 3 ; 69$:  AOBLSS }TER_COONT, J. 708 F 

03 (1 BRB 1$ ; 

FEAA 31 3 9 70$:  BRW 47$ : 

50 ¢ BE48 7E C 71$:  MOVAQ @ACP_ATR_LISTCACP_ATR_PTR], RO : 

A 84 ai CLRW =. 2(RO ; 

C BE48 7F 00544 PUSHAQ @ACP_ATR_LISTCACP_ATR_PTR} : 

9E B84 00548 CLRW a(SPy+ 3 

00CO CE 00000000" EF 00 0054 MOVL § ACL_CONTEXT, FILE_F1B+48 : 

E D4 CLRL = = (SP) ; 

30 AE OD PUSHL ACP_ATR_LIST : 

7E 7C CLRQ. = (SP) ; 

7E D4 A CLRL 3s = (SP) ; 
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3 
SYSACLSRV ib-se -1984 01:51: AX-11 Bliss-32 V4.0-74 p 
bead SCHANGE_ACL system service ae Ob: 2bi84 LOADSS.SRCJSYSACLSRV.B52;1 = BS 
00E4 CE of 5 PUSHAB FILE_FIB_DESC ; ; 
—E 7C 6 CLRQ =(SPY : : 
FB OAD OOF PUSHAB LOCAL_I0SB : ; 
38 AE pp 6 PUSHL FUNCTION CODE F ; 
7E 4 AE 3C 6 MOVZWL IO_CHANNEL, =-(SP) : : 
7E DG f CLRL (SP) F ; 
000000006 90 ¢ F CALLS #12, SYS$QI0OW ; : 
cB D MOVL RO STATY : ; 
C B : 7 BLBC STATUS, 72$ + 1926 ; 
B F8 AD § 7B MOVZWL LOCAL fos STATUS : 3 
95 5B £9 0057F BLBC STATUS, 72$ + 1927 ; 
B 0064 CE 00 04 ¢ MOVL FILE_F{e+52, STATUS : ; 
0 AE B 72$: TSTW LOCAC_CHANNEL + 1928 : 
OB 12 0058A BNEQ $ : ; 
7E 20 AE 3C 0058¢ MOVZWL 10_CHANNEL, -(SP) : : 
000000006 00 07 FB 00590 CALLS #1, SYSS$DASSGN ; : 
2¢ «=6AE «OF 00597 73$: -PUSHAB ACP_ATR_LIST : 1930 ; 
18 AE 08 AE DO 0059A MOVL g(SP) 24 (SP) } : 
18 AE 9F 0059F PUSHAB 24(SP5 : j 
000000006 00 02 FB ObAg CALLS #2, LIBSFREE_VM ; : 
06 5B £9 005A BLBC STATUS, 74$ + 1931 ; 
03 50 €8 005AC BLBS STATUSS, 74$ : F 
5B 50 DO OO5AF MOVL § STATUS2. STATUS : ; 
28 Ar 05 90582 74$:  -TSTL LOCAL LOCKID : 1935 ; 
3 13 0058 BEQL 7$ : ; 
ro 00587 CLRQ = = (SP) : ; 
7E D4 00589 CLRL = =(SP) : ; 
34 AE DD 00588 PUSHL LOCAL_LOCKID : : 
000000006 00 94 Fe O05BE CALLS #4, SYSS$DEQ ; : 
30 AE 3 DO 005C7 758:  MOVL #3, CMK_ARG_LIST + 1943 ; 
4 AE 7 DO 005¢B MOVE —_ITEM_COONT, “CMK_ARG_LIST+4 + 1944 ; 
8 AE 59 DO O05CF MOVL 9, CMK_ARG_LIST+8 + 1945 3 
3c AE SA OA 0903 MOVZBL SHARE, CMK_ARG_LIST+12 : 1946 : 
30 AE 9F 005D PUSHAB CMK_ARG_LIST > 1948 : 
00000000v EF 9F OO5DA PUSHAB ACL-DISPATCH : : 
000000006 00 ; FB O5E0 CALLS #2, SYSSCMKRNL : F 
5B DO 005E 768: MOVL RO, STAT : 
10 AE B5 OOSEA 77$: STW LOCAL _CHANNEL ; 1953 
0B 12 00SED NEQ $ : 
7E 20 AE 3C OOSEF MOVZWL I0_CHANNEL, -(SP) : 
000000006 00 01 FS O5F3 ALLS #17 SYSSDASSGN ; 
20 1 OA O5FA 78$:  BLBC 28(SP), + 1957 
1c «BC 04 : 0 F PROBEW #0 #45 @CONTEXT : 1958 
6 BEQL § : 
08 18 AE £9 006 BLBC 4(SP), 79$ : 1961 
1c «BC 060 cE bo 6 } ROVL FILE_F18+48, @CONTEXT > 1962 
1¢ BC 00000000° EF 00 11 79$:  MOVL  ACL_CONTEXT, @CONTEXT ; 1963 
3 11 00619 BRB ry : 195 
58 C 06 61B B08: MOVL #12 STATUS : 1965 
5 5 p 61— 81$: MOVL STATUS, R + 1967 
4 00621 RET > 1969 


; Routine Size: 1570 bytes, Routine Base: S$CODE$S + 1318 


| Pa 7 
: ve 


b 3 | 
vou 000 GET_PARENT_LOCK = get parent for ACL Locks 12286871382 93:2 5:8h ‘baDsse Reis attsev 68251 


nn 


a | 
| 
; 197 1970 1 ZSBTTL ‘GET_PARENT_LOCK = get parent for ACL locks’ 
: 197 1971 1 ROUTINE GET_PARENT.COCK = °° 
$ 1378 13%6 1 
3; 197 1975 1 !44 
; 1980 1974 1! 
: 1981 1975 1 ! FUNCTIONAL DESCRIPTION: 
3 19 § 1276 1! 
; 19 137 1! This routine takes out a null lock on the system-wide ACL lock 
3; 19 1 4 1! arent name. This lock is used as a parent for user mode ACL locks. 
; 1985 1979 1! t must be taken out in kernel mode, since some ACL locks are 
: 1288 1980 1! taken out in kernel mode. 
3 4 14 13 1 } } numeric value. If the name does not exist, an error is returned. 
; 1989 19 & 1 !' CALLING SEQUENCE: 
; 1990 1984 1! GET_PARENT_LOCK () 
3 1991 1985 17! 
3 1396 1356 1 ! INPUT PARAMETERS: 
3; 199 19 1! none 
3 1994 1988 1! 
; 1995 1989 1 ! IMPLICIT INPUTS: 
; 1996 1990 1! none 
3; 1997 1991 1! 
; 1998 1936 1 ! OUTPUT PARAMETERS: 
: 1999 1995 1! none 
; 2000 1994 1! 
; 2001 1995 1 ! IMPLICIT OUTPUTS: 
; O08 1996 1! PARENT_ID: set to lock ID of parent lock 
; 200 1997 1! 
3 2004 1998 1 ! ROUTINE VALUE: 
3 2005 1999 1! Status of SENQ call 
3; 2006 a4 1! 
3; 2007 001 1 ! SIDE EFFECTS: 
; 2008 Ong 1! none 
; 2009 003 1! 
5 spit 004 1 !-- 
: O13 if ! BEGIN 
3 O18 $09 
3; 2014 008 LOCA 
: 2015 009 STATUS, ' system status return 
: sos sors LOCAL_10SB : VECTOR C4, WORD]; ! lock status block 
: 2018 01 
3; 2019 P 618 STATUS = SENQ (LKMODE = LCKSK_NLMODE, 
: ose P 2014 LKSB = LOCAL_10SB 
: 2021 P 2015 RESNAM = .LOCK~PREFIX(0) 
3 Ose P Big FLAGS = LCKSM_NOQUEUE 0 
3: 202 P 201 LCKSM_SYNCSTS OR 
: 0e6 S 018 LCKSM_SYSTEM 
3; 2025 01 ACMODE = PSLSC_USER); 
3 2026 020 2 IF .STATUS THEN STATUS = .LOCAL I0S6CO); 
3; 2027 021 IF NOT .STATUS THEN RETURN STATUS: 
3; 2028 0 § PARENT_ID = .(LOCAL_10S8(2])<0,32>; 
; ° 3 0 4 1 
: 2031 025 1 END; ! End of routine GET_PARENT_LOCK 


3 
voneo00 GET_PARENT_LOCK = get parent for ACL locks 1$-sen-1984 9h:2h:84 ABADSS SRE SST SALCSAV 69251 rome B 


0000 00000 GET_PARENT LOCK: 
.WOR 


Save nothin 3; 1971 
se 8 sete 1  enaioes : 
E D MOVG #3, =(SP) + 2019 
— 7¢ CLRQ 0._« = §P) : 
— 7¢ A CLRQ = (SP) : 
00000000" EF DD PUSHL L CK PREFIX : 
D PUSHL 3 
20 AE 9F 0001 PUSHAB LOCAL_I0SB F 
7E 7C 00017 CLROQ = ($P) : 
000000006 00 06 re 1 CALLS #11, SYSSENQ ; 
11 : BLBC Afu + 2020 
50 6 f MOVZ2WL LOCAL_f0SB, STATUS : 
ys) E é BLBC —s STAT + 2021 
00000000° EF 04 AE 00 000 MOVL LOCAL _[0SB+4, PARENT_ID : 20 Z 
v . ; 
0 01 20 90 1 - MOVE #1, RO 202 


; Routine Size: 53 bytes, Routine Base: SCODE$S + 193A 
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SYSACLSRV 16-Sep-1984 01:51: AX-11 Bliss-32 V4.0-74 Page 89 
Voee 000 SET_ID = TPARSE action routine 12286871382 9208s LOADSS. RESSYSACLERV. B92: 1 ’ B 
033 § ZSBTTL ‘SET_ID = TPARSE action routine’ 


3 1 3 
: 8 : ! ROUTINE SET_TD = : 
Ee: ere ; 
: 2038 O31 1 | FUNCTIONAL DESCRIPTION: 3 
3 2040 0 : 1 i This routine tries to convert an identifier to its correspondin ; 
3 ‘ed 8 ¢ : numeric value. If the name does not exist, an error is returned. : 
: 008 036 1 | CALLING SEQUENCE: ; 
: 2044 1! SET_ID () : 
: 2045 aa : 
3 | 873 1 ! INPUT PARAMETERS: $ 
3; 204 40 1! none 3 
; 2048 041 1! 3 
3; 2049 ek 1 ! IMPLICIT INPUTS: $ 
; 2050 045 1! ACE BUFFER: address of the binary ACE storage : 
; $83 Bee : } ACE_INDEX: index into the ACE key area : 
: 038 046 1 | OUTPUT PARAMETERS: : 
 $oee O48 1 i sar 
; 096 049 1! IMPLICIT OUTPUTS: : 
3 et B29 : ACE_INDEX: index into the ACE key area : 
: 2059 03¢ 1 ' ROUTINE VALUE: : 
: 2060 055 1! SS$_NORMAL if the ID name exists : 
3 bes bee ' } SS$_NOSUCHID if it does not : 
; 068 056 1 ' SIDE EFFECTS: : 
3; 2064 057 1! The identifier name is converted to its corresponding value. That ; 
: 2065 B38 1! value is then placed in the ACE key area. The index is then updated ; 
; ¥¢] 059 1! to point to the next available key storage area. : 
3; 206 060 1! : 
: 5068 2 
: 970 O68 BEGIN ; 
: O72 065 2 LOCAL : 
3 A +4) UIC_POINTER : REF SBBLOCK; ! Pointer to UIC entry : 
; Bre 943 ! Save the identifier, and note the type. : 
: $78 895 VECTOR CACE_BUFFERCACESL_KEY], .ACE_INDEX] = . IDENTIFIER; : 
$ ae 071 INDEX = eee INDEX + 1; : 
: 20 re IF ~IDENTIFIERCUTCSV_FORMAT) EQL UICSK_UIC_FORMAT 3 
3 7 T = ,UIT_COUNT + 1 3 
3 1 LSE 1D_COUNT = - 1D_ COUNT + 1; : 
; 0 5 26 RETURN 1; : 
; 2085 2078 1 END; ! End of routine SET_ID ; 


3 
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0004 SET_1D: .WORD Save R2 : 2027 

Hemet is Ee a7 
FEO® C24 16 Ad D MOVL IDENTIFIER, ACE_BUFFER+8CRO) : 

6 p INCL ACE_INDEX : 2071 

CO BF 17, =A 1 BITS IDERTIFIER*S, #192 + 2072 
05 1 1A BNEQ ¢ ; 

10 A2 06 0001C INCL YIC_COUNT + 2073 
03 11 OOO1F BRB $ : 

20 =A D6 021 1$: INCL 1D_cOUNT + 2074 

50 01 p 90 4 28: MOVL #17 R : 16 

4 7 RET : 207 


; Routine Size: 40 bytes, Routine Base: S$CODES + 196F 


voueO00 SET_ACCESS_BIT = TPARSE action routine 1bse 308-1382 9}: 20 2 YeSapsse $S.$ bReis Veatcsav 68251 “ated (3) 
8 7 7 ZSBTTL ‘SET_ACCESS BIT = TPARSE gct iso routine’ 


ot 


ROUTINE SET_ACCESS_BIT (ARG1, ARG2, ARG3, SIZE, BUFFER) = 


FUNCTIONAL DESCRIPTION: 


fy routine checks the current token to determine whether or not 
an access bit name. If it is, the appropriate bit is set 
i ACE RIGHTS. If it is not, an error is returned. 


SESz3 


SS 
oO 
oO 
MEWN "OOO NOULSWIN—O 


oo 


BIT_POSITION 
BIT“NAME_DESC : REF S$BBLOCK; i 


! Note that, initially, no match was found. 

BIT_POSITION = -1; 

! Now scan the bit name table to see if the specified definition exists. 
INCR J FROM 0 TO 31 


index 
name descriptor 
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BEGIN 
IF .BIT_NAME_TABLE NEQA 0 
THEN 
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i 
i 
i 
i 
i 
1 
94 88 ! AL SEQUENCE: 
908 4 SET_ACCESS_BIT (ARG1, ARG2, ARG3, ARG4, ARGS) 
101 09 ! INPUT espe Bd 
196 09 ! RG1-ARG3: TPARSE block ar ~ not used 
10 09 ' Ana: size of the current 
104 84 ! ARGS: address of the sepgent token text 
105 09 ! 
106 098 ! IMPLICIT INPUTS: 
107 99 ! none 
108 00 ! 
109 01 ! OUTPUT ee 
110 8g ! 
111 0 ' 
Vig Be ! IMPLICIT OUTPUTS: 
11 5 ! ACE_RIGHTS 
114 06 : 
115 07 ' ROUTINE VALUE: 
116 08 ! 1 if bit name was defined 
11 09 ! 0 otherwise 
118 10 ! 
119 11 ' SIDE EFFECTS: 
130 \§ : The appropriate bit is set in ACE_RIGHTS. 
1 ; 14 feo 
1 15 
124 1 BEGIN 
125 1 
126 1 LOCAL 
127 1 
128 
129 
1 
; 1 
138 
1 
135 
1 
1 
1 
1 
1 
1 
1 
1 


a a a 


REGSSSSSVEAROWLS 


BEGIN 
IF PROBER (ZREF (0), rid pacer farerey “o” Bt} ~NAME TABLEC.J, 0, 0, 0, 0)) 


THEN BIT_NAME_DESC = 1 NAM . 0) 


K 3 
voe-0be SET_ACCESS_BIT = TPARSE action routine 1e-8Sp-4982 9b:2h:8s | HeSabs ssa Sseeatt shy BS2.1 Pose 35 


4 ELSE RETURN SS$_ACCVIO; 
4 IF NOT EXESPROBER (0, .BIT_NAME DESCED 
é1f DSC 


-BIT_NARE_DESC 
ha RETURN SS$_ACCVIO; 
ELSE ait NAME DESC = ,DEFAULT_BITSC.JJ; 
IF CHSEQC (.STZE F 
E, -B1T_NAME_DESCCDSCSW_LENGTHJ), -BIT_NAME _DESCCDSCSA_POINTERJ, 0) 


U 


nm 
m 
=~ 


= 
.B 
MINU (.$12 


4 
4 
| 
4 BE 
4 IF .BIT POSITION GEQ 0 THEN RETURN 0; ! Ambiguous, error. 
BIT_POSITION = .J; 
END; 
END; 


DONAOULS WN“ OVODONOUSE 


If .BIT POSITION L 
ACE_RIGATS<.BIT_PO 


RETURN 1; 
END; ' End of routine SET_ACCESS_BIT 


HEN RETURN 0; ! Specified name not found 
>= 1; ! Note desired access. 


wre 
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007C 00000 SET_ACCESS BIT: 
WORD 


WO Save R2,R3,R4,R5,R6 : 

56 01 CE 0000 MNEGL #1, BIT_POSITION : 

54 04 0000 Tee F 

50 00000000° EF DO 00007 1$ MOVL BJT_NAME_TABLE, RO : 

3 13 0000 BEQL $ F 

6044 7F 0001 PUSHAQ (RO)CJ) ; 

9E 08 00 0 01 PROBER #0, #8, a(SP)+ : 
16 1 91 EQ. =s $$ : 

55 6044 7E 00019 MOVAQ (RO)CJJ. BIT_NAME_DESC : 

50 046 =A p 9010 VL 4(BIT_NAME_DESC),~RO : 

51 : C 00021 MOV ZWL BIT NAME _BESC), R1 : 

D4 00 4 CLRL oR F 

000000006 p 1 6 6 JSB EXESPROBER : 

o¢ E8 0002C BLBS RO, 4$ ; 

0 0c BO 00 F 2$ MOVL #12, RO ; 

55 00000000" EF 44 D 09 ’ $ MOVL § DEFAULT _BITSCJJ, B1T_NAME_DESC : 

0 10 AC D $ MOVL size R : 

50 65 10 0 D F CMPZ7vV #0, #16, (BIT_NAME_DESC), RO F 
E 00044 BGEQU 5$ ; 

50 65 3¢ 46 MOVZWL (BIT_NAME_DESC), RO F 

50 00 14 BC 10 a‘ D 00049 5$ CMPCS SIZE> @BUFFER, #0, RO, @4(BIT_NAME_DESC) 
6 1 ; BNEQ 6$ : 

26 Q Ist IT_POSITION ; 

56 34 D 8 MOVL J BIT_PO ITION : 

AB 4 F F B 6S: AOBLEQ #$1, J : 
36 D f TSTL BIT_POSITION ; 

c i 61 BLSS : 


voeeobe SET_ACCESS_BIT = TPARSE action routine if: e0-194¢ Mbi2bi8s | HeSAbS SAR Ssesate shy ose. 1 


00 00000000" €F 3 $$ T.POSITION, ACE_RIGHTS, 
Koeen | iE rs RREE-RgSTIN. ace trons, 
50 04 F 8$: R R 
Ca Gf 


; Routine Size: 114 bytes, Routine Base: S$CODE$S + 1997 
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16-Sep-1984 01:51: AX-11 Bliss-32 
GET_UCB_ACL = get UCB ACL queue head address 1 =3007 1382 9b :20:8 LOADSS.SRCISYSA 


1 ZSBTTL ‘GET_UCB_ACL = get UCB ACL queue head address’ 
ROUTINE GET_OCB_ACL (CHANNEL) = 


144 
i 


FUNCTIONAL DESCRIPTION: 


This routine locates the ACL queue head for a device, given a 
channel number. 


CALLING SEQUENCE: 
GET_UCB_ACL (ARG1) 


INPUT PARAMETERS: 
ARG1: channel assigned to the device 


IMPLICIT INPUTS: 
none 


OUTPUT PARAMETERS: 


i 
i 
i 
i 
i 
i 
i 
i 
1 
i 
4 
i 
i 
: none 
i 
! 
' 
i 
! 
i] 
i 
i 
i 
i] 
le 


cs OOO 0000 000909090909 09090908 SI NIN NINN oOo ITN 
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IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
SS$_NORMAL if ACLs are allowed 
SS$_NOACLSUPPORT if ACLs are not allowed 
SIDE EFFECTS: 
none 
BEGIN 
MAP 
CHANNEL : WORD; 
LOCAL 
TATUS, ' Local routine return status 
DEVICE_UCB : REF SBBLOCK, ' Device UCB address 
DEVICE ORB ; REF SBBLOCK, ' Device ORB address 
CHANNEC_BLOCK : REF $BBLOCK; ! Device CCB address 


STATUS = IOCSVERIFYCHAN (.CHANNEL: CHANNEL_BLOCK); 
IF NOT .STATUS THEN RETURN .STATUS; 

DEVICE_UCB = . CHANNEL BLOCKECCBSL bce); 
DEVICE-ORB = .DEVICE_OCBCUCBS$L_ORB); 


! If no ACLs are allowed, return an error. 
IF .DEVICE_ORBCORBSV_NOACL] THEN RETURN SS$_NOACLSUPPORT; 


! If the device is unowned, and the protect ion is all access to everybody, 
! and there is no ACL present, require SYSPRV to change the ACL. 
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3; Routine Size: 


GET_UCB_ACL = get UCB ACL queue head address 


n 3 
-$ep-1984 01:51: AX-11 Bliss-32 V4.0-74 
19-808- 1382 Oh: 2h: 2h ANADSS  SRESTSALL Sky BS2:1 
IF .DEVICE ORB ORBS, OWNER) EQL 0 
AND CIF .DEVICE_ORBLORBSV_ACL CUEYE) 
ine 2 VICE_ORBCORBSL_ACLFLJ EQLA DEVICE_ORBCORBSL_ACLFLI 


AND NOT .SBBLOCK CCTLSGL_PCBCPCBSQ_PRIV], PRVSV_SYSPRVJ 
THEN RETURN SS$_NOPRIV; 


4 

! If the ACL queue head is uninitialized, initialize it now. 

§ IF NOT .DEVICE_ORBCORBSV_ACL_QUEVE] THEN ACL_INIT_QUEUE (.DEVICE_ORB); 
5 ! Set up the address of the ACL queue head. 

? ACL_QUEVE_HEAD = SBBLOCK C.DEVICE_UCBCUCBSL_ORBJ, ORBSL_ACLFLI; 

, RETURN SS$_NORMAL ; 

1 1 END; 


1 
1 
1 
1 
1 


! End of routine GET_UCB_ACL 


000C 00000 GET_UCB_ACL: 
-WORD Save R2,R3 
0 04 AC 3C 00002 MOVZWL CHANNEL, RO 
000000006 00 16 00006 JSB IOCSVERIFYCHAN 
50 50 €9 0000C BLBC STATUS, 5$ 
52 61 DO 0000F MOVL § (CHANNEL BLOCK), DEVICE_UCB 
50 1C ag DO poate MOVL 28(DEVICE UCB), DEVICE_ORB 
06 0B Ad 0 Fi 0016 BBC #3, 11(DEVICE_ORB), 1$ 
50 228c «= BF_SC3C:«00018 MOVZWL #8892, RO 
60 $e 80 , 1$ reTL (DEVICE_ORB) 
20 F 00 : BNEQ © 3$ " 
OA 0B AO 1 fl 00 BBC #1, 11(DEVICE_ORB), 2$ 
51 38 Ad E 00 A MOVAB 4O(DEVICE_ORBY, R1 
51 8 Ad D1 00 5 CMPL  4O(DEVICEORB). R1 
11 if 00 BNEQ 3$ 
51 000000006 00 ob 90 4 2% MOVL CTLSGL PCB, R1 
04 0087 cI 4 EO B BBS #4, 135(R15, 3$ 
0 4 BO 0041 MOVL #36, RO 
09 0B a0 gt EO 00045 3$: BBS #1, 11(DEVICE_ORB), 4$ 
0 DD 0004A PUSHL DEVICE_ORB 
000000006 00 1 FB 4¢ CALLS #1 Ace INIT_QUEUE 
00000000" EF “a & 8 C1 00053 4s: ADDL3 #46, : TDEVITE_UCB), ACL_QUEUE_HEAD 
1 DO 0005¢ MOVL #1, °R 
04 0005F S$: RET 


96 bytes, Routine Base: S$CODE$ + 1A09 
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1b-5¢ “1984 01:51: AX-11 Bliss-32 V4.0-74 
GET_JBC_ACL = get Job Controller queue ACL queu 1 Het 1 LES AOADSS  SREISYSACL Sav 682; 1 


ROUTINE GET_JBC_ACL (QUEUE_NAME) = 


+4 
i] 


| FUNCTIONAL DESCRIPTION: 


ZSBTTL ‘GET_JBC_ACL = get Job x top queue ACL queue head address’ 


Ht routine locates the ACL queue head for a Job Controller 
ueue. 


i CALLING SEQUENCE: 
GET_JBC_ACL (ARG1) 


i INPUT PARAMETERS: 
ARG1: address of the queue name descriptor 


i IMPLICIT INPUTS: 
none 


i IMPLICIT OUTPUTS: 
none 
i ROUTINE VALUE: 
address of the ACL queue head or 0 if an error has cccurred 


! 

' 

' 

1 

' 

! 

| 

' 

] 

' 

' 

' 

' OUTPUT PARAMETERS: 
none 
i] 

1 

i] 

' 

' 

' 

SIDE EFFECTS: 
i] 

' 


none 
BEGIN 
P 
QUEUE _NAME : REF S$BBLOCK; 
RETURN SS$_BADPARAM; 
END; ! End of routine GET_JBC_ACL 


0000 00000 GET_JBC_ACL: 


WORD Saye nothing 
50 14 B0 00008 MOVL #20, RO 
4 000 RET 


6 bytes, Routine Base: S$CODE$ + 1A69 


Page 96 
. (11) 


Sn - —_ 


4 
1b-5e $1984 01:51: AX-11 Bliss-52 V4.0-74 Page 97 
GET_CEB_ACL = get common event block ACL queue 1 $007 1382 Ob 2 bie4 LOADS  SReTSYSALC Sey S231 - (12) 


ZSBTTL ‘GET CEB_ACL = get common event block ACL queue head address’ 
ROUTINE GET_CEB_ACL (CLUSTER_NAME) = 


144 
’ 
FUNCTIONAL DESCRIPTION: 
This routine locates the ACL queue head for a common event block. 


CALLING SEQUENCE: 
GET_CEB_ACL (ARG1) 


i INPUT PARAMETERS: 
ARG1: address of the cluster name descriptor 


OOo INNIS 


; | 

$ 4 1 

3 7 

; 8 1 

3 1! 

: 1! 

; § 1 i 

; ns 

; B ! 

; HY 4 

3 Hf sy 

; > 34 

3 86 1! 

3 87 1! 

; $$38 88 1 ! IMPLICIT INPUTS: 

; 2500 89 1! none 

3 $30) 90 1! 

s 2 Og 91 1 =! OUTPUT PARAMETERS: 

; 230 $36 . | none 

: 2304 2293 1! 

3; 2305 § 94 1 ! IMPLICIT OUTPUTS: 

; 2306 95 1! none 

3; 2307 2296 1! 

3; 2308 $535 1 ! ROUTINE VALUE: 

; th $528 : address of the ACL queue head or 0 if an error has occurred : 
3 ath $580 1 ! SIDE EFFECTS: 3 
3; 2312 2301 1! none 3 
: 2313 306 1! ; 
3 2314 303 1 !-- 3 
: 2315 304 1 3 
3; 2316 305 BEGIN 3 
3 Saif 306 3 
; 2318 307 3 
3 2319 308 CLUSTER_NAME : REF S$BBLOCK; é 
3 Sese $a08 

3 2321 310 RETURN SS$_BADPARAM; 

; $356 § 11 

3 232 312 END; ! End of routine GET_CEB_ACL 


0000 00000 GET_CEB_ACL: 
- WORD Saye nothing + 2274 
50 14 Bo 00 MOVL #20, RO 3 19 
4 0000 RET 1 


Routine Size: 6 bytes, Routine Base: SCODES + 1A6F 
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16-Sep-1984 01:51: AX-11 Bliss-32 V4. 
GET_LNT_ACL = get logical name table ACL queue 12280871388 93:2 0:8h LOADSS. SRCISYSACL 
1 ZSBTTL. 'GET_LNT_ACL = get logical name table ACL queue head address' 


4d 
‘> 
» 
< 


rorerororororororerorororororororunony 


5 13 
8 19 : ROUTINE GET_CNT_ACL (TABLE_NAME) = 
8 1 1 !e4 
9 i$ 1! 
\8 \ FUNCTIONAL DESCRIPTION: 
¢ 01 This routine locates the ACL queue head for alogical name 
; 1 ! 1 table. 
5 § 1 ' CALLING SEQUENCE: 
§ : ! GET_LNT_ACL (ARG1) 
338 $ 1 | INPUT PARAMETERS: 
ed $56 } ARG1: address of the table name descriptor 
341 329 1 1 IMPLICIT INPUTS: 
ak 330 1! none 
34 aor 3S 
2344 $36 1 ! OUTPUT PARAMETERS: 
2345 2333 1! none 
2346 2334 1! 
2347 $332 1 ! IMPLICIT OUTPUTS: 
2348 336 1! none 
ted 337 1! 
350 338 1 ! ROUTINE VALUE: 
Ste, es : address of the ACL queue head or 0 if an error has occurred 
2358 341 1 | SIDE EFFECTS: 
54 346 1! none 
S322 234 1! 
356 2344 1 !-- 
2357 Seer 1 
Sh GRE oxcin 
tre! 2348 ; RETURN SS$_BADPARAM; 
$362 $366 1 END; ! End of routine GET_LNT_ACL 


0000 00000 GET_LNT_ACL: 
vel Save nothing 


- WORD 
50 14 00 0000 MOVL #20, RO 
04 0000 RET 


Routine Size: 6 bytes, Routine Base: S$CODE$ + 1A75 


$$ 


yon-000™ GET_PCB_ACL = get process ACL queue head addres 1$-s¢ 300-1382 93: 20; 2 {bapsse sh £3538 gate v 682; 1 Page 423 


3 1 ZSBTTL. ‘GET_PCB_ACL - tty ACL queue head address’ 
: } ROUTINE GET_PCB_ACL (PR fEs NAME) = 

: 4 1 i+ 

: 2568 > Ff 

: +4 § 1 FUNCTIONAL DESCRIPTION: 

: a! 8 } This routine locates the ACL queue head for a process. 
; ig 60 1 ! CALLING SEQUENCE: 

: ne o : GET_PCB_ACL (ARG1) 

3 re 8 1 ! INPUT PARAMETERS: 

3 a4 rf: ! ARG1: address of the process name descriptor 

: 2379 66 1 ! IMPLICIT INPUTS: 

; 2580 67 1! none 

3; 2381 68 1! 

3 306 69 1 ! OUTPUT PARAMETERS: 

: 70 1! none 

: 2584 «he 3 

3 $6? Le: 1 ! IMPLICIT OUTPUTS: 

3; 2386 7m 2 none 

3; 2387 fe 6 3 8 

3; 2388 § 75 1 ! ROUTINE VALUE: 

3 Stop 3/8 : : address of the ACL queue head or 0 if an error has occurred 
3 $30) 78 1°! SIDE EFFECTS: 

3 308 379 1! none 

3; 239 $89 1! 

3 2394 81 1 !e- 

3 2395 $06 1 

3 2396 38 BEGIN 

3; 2397 384 

3; 2398 2385 RETURN SS$_BADPARAM; 

3; 2399 2386 

; 2400 2387 1 END; ! End of routine GET_PCB_ACL 


0000 00000 GET_PCB_ACL: 
«WORD Save nothing 3 338 
50 14 00 0000 MOVL #20, RO : 238 
04 0000 RET 3; 2387 
; Routine Size: 6 bytes, Routine Base: S$CODE$ + 1A7B 


; Routine Size: 6 bytes, Routine Base: S$CODE$S + 1A81 


F 4 
SYSACLSRV -$ep-1984 01:51: AX-11 Bliss-32 V4.0-74 Page 100 ” 
von 008 GET_GBL_ACL = get global section ACL queue head 12286871382 9b :2h 8h LOADSS’SRESSYSALLSRV 69251 . (15) 
3: 24 ¢ 1 ZSBITL. ‘GET_GBL_ACL = get global section ACL queue head address’ 
3 re } ROUTINE GET_GBL_ACL (SECTION_NAME) = 
: 5405 91 1 144 | 
3 24 3 1! 
3 ri i 37 ! FUNCTIONAL DESCRIPTION: 
3; 2409 95 1! This routine locates the ACL queue head for a global section, given 
: 2410 39 1! a section name. 
3: 2411 97 1! 
: tig 98 1! CALLING SEQUENCE: 
3: 241 99 1! GET_GBL_ACL (ARG1) 
3 2614 400 1! 
3 2415 401 1 ! INPUT PARAMETERS: 
§ 218 tb : ARG1: address of the section name descriptor 
: 2418 404 1 ! IMPLICIT INPUTS: 
3: 24619 405 1! none 
3; 2420 rt 1! 
3 2421 407 1 ! OUTPUT PARAMETERS: 
3: 24 g 408 1! none 
3; 242: 409 1! 
3 2426 410 1 ! IMPLICIT OUTPUTS: 
3 2425 411 1! none 
: 2426 tig 1! 
$ tSs 41 1 ! ROUTINE VALUE: 
3 re seie : address of the ACL queue head or 0 if an error has occurred 
3 3680 416 1 ! SIDE EFFECTS: 
: 2431 417 1! none 
3 oe6 418 1! 
: 243 2419 1 !e= 
3 2434 sess 1 
: 2435 2421 BEGIN 
; 2436 $056 
3 2437 24 RETURN SS$_BADPARAM; 
3; 2438 seSe 2 
3 2439 425 1 END; ! End of routine GET_GBL_ACL 
0000 00000 GET_GBL_ACL: 
50 14 0 0000 hove | 0 RO : 3038 
Be b000 Re $258 
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DISPATCH = main ACL function dispatcher 
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4 
1Soseoctgee O1:61:5]  yanctt a ta4=82 4 
ZSBITL ‘ACL_DISPATCH = main ACL function 


d en atcher' 
ROUTINE ACL ST SPATCH CITEM_COUNT, ITEM_LIST, SHARE) = 


lee 
' 


FUNCTIONAL DESCRIPTION: 


S 
“5 
i 


This routine is called to pyciers the appropriate ACL Sper es anes 
The code is checked for validity and, when necessary, the buffer 
is probed for the desired access. 


i CALLING SEQUENCE: 
i ACL_DISPATCH (ARG1, ARG2, ARG3) 


! INPUT PARAMETERS: 
A G1: count of items fo S ereqess 
ARG2: address of the i 
ARGS: 1 if the o eration ic only reading the ACL 
0 if the ACL is being modified 


' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
i IMPLICIT INPUTS: 
ACL_CONTEXT: previous ACL context 
i QUTPUT PARAMETERS: 

NONE 

i IMPLICIT OUTPUTS: 

ACL_CONTEXT: mew ACL context 
ROUTINE VALUE: 

! 

i SIDE EFFECTS: 

i 

' 

' 


The appropriate action routine is called. Possible ACL modification 
may result. 


ITEM_LIST : REF BLOCKVECTOR C, ITMSS_ITEM, SYTE); 


Cotte geftned to tie off references made in the module ALLOCB obtained from 
! the 


GLOBAL LITERAL 
CONTEXT _SAVE = Q, 
CURRENT WINDOW ’ 
10_PACKET = 0; 


LOCAL 
' gtatys returned oy ach operation 
U ' Routi ae return s Flore 
FUNCTION CODE, ig 0 erat on to or +o 
i] 


ze of user buffer 
BUFFER : REF SBBLOCK, i oe 3 user buffer 
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16 -S$ep-1984 75 AX-11 Blis Page 10 
DISPATCH = main ACL function dispatcher “520-1984 9}: 20; 2} COADSS” SRC se4sie YEACL Oy E82; 31 0° 193 
LOCAL_10S8 : VECTOR C4, WORDJ, ' Lock status block 
LOCAL-LOCKID; ' Local copy of the lock-id 


! Initialize local storage. 

CHSFILL (0 42, seocNbRAA 10SB8); 
Lora, Toseto) MAL; ' Assume success 
LSTATUS = STATUS" = $S$ _NORMAL; ' Here also 


! Take out the mutex on the specified ACL. 


THEN SCHSLOCKR ( (.ACL_QUEUE_HEAD = $BYTEOF 


FSET (ORBSL_ACLFL) + SBYTEOFFSET (ORBSL_ACL_MUTEX), .CTLSGL_PCB) 

ELSE SCHSLOCKW (.ACL~ “QUEUE-HEAD = SBYTEOFFSET (ORBSL_ACLFL) + SBYTEOFFSET (ORBSL_ACL_MUTEX), .CTLS$GL_PCB); 
! Loop over the item List, processing each item. 
INCR J FROM 0 TO .ITEM_COUNT-1 

BEGIN 

sy CODE te +f TER. LISTC.J, ITM$W_ITMCOD); 

$12 ITEM_L eee “ITM$W_BUFSIZI);~ 

SUFFER = ITER cist é Timse _BUFADRI; 


! Dispatch on the function code. 
CASE «FUNCTION CODE FROM MIN_ACL_ATR TO MAX_ACL_ATR OF 


CACLSC_ADDACLENT): 
BEGIN 


IF _ SHARE 

THEN STATUS = SS$_BADPA 

ELSE IF NOT EXE KESPROBER s MCALL -ACMODE, .SIZE, .BUFFER) 

eee ny 7, = ore ACCVIO 

Le ACL STATUS. = ACL_ADDENTRY (.ACL_QUEUE_HEAD, ACL_CONTEXT, .SIZE, .BUFFER); 


CACLSC_DELACLENT): 

BEGIN : 

THEN STATUS = S$S_BADPAR 

USE TF NOT EXESPROBER CALL _ACMODE, .SIZE, .BUFFER) 

THEN STATUS = SS$_ACCVIO 

ELSE IF .ACL_STATOS 

THEN ACL_STATUS = ACL_DELENTRY (.ACL_QUEUE_HEAD, ACL_CONTEXT, .SIZE, .BUFFER); 
CACLS$C_MODACLENT) 

BEGIN 

IF_. SHARE 

THEN STATUS = SS$_BADPARAM 

ELSE IF NOT EXESPROBER (.CALL_ACMODE, .SIZE, .BUFFER) 

THEN STATUS = SS$ ACCVIO 

ELSE IF .ACL_STATOS 


SYSACLSRV 1b-se Sep-1984 01:5 AX-11 Bliss-32 V4. 
v04 ACL_DISPATCH = main ACL function dispatcher ba 1 9}: 26; 2 LOADSS.SRC SVEALLSRV B82: 31 
bn ACL_STATUS = ACL_MODENTRY (.ACL_QUEUVE_HEAD, ACL_CONTEXT, .SIZE, .BUFFER); 


NOW 


CACLSC FDACLENT 2: 
IF NOT EXESP ROBEW (, CALL. 
THEN STATUS = SS$_ACCVIO 
fee ACL "Status ="ACL_FINDENTRY (.ACL_QUEUE_HEAD, ACL_CONTEXT, .SIZE, .BUFFER, 0); 


ACMODE, .SIZE, .BUFFER) 


CACLSC + aaah 
od NOT EXE SPROBEW (.CALL 
ATUS = SS$_ACCVIO 
="ACL_FI 


THEN ST ~ACMODE, .SIZE, .BUFFER) 
ELSE ACL_STATUS 
END; 


NDTYPE (.ACL_QUEUE_HEAD, ACL_CONTEXT, .SIZE, .BUFFER, 0); 


FO SUSVSVSVSUSISI IIIS 


SNS NII NNSA AAO AO OOS OS 
PAEAEAAEQASEMNMMNNNMNIIIE BPP PLL LEE 


0 
4 
4 
5 
5 6 CACL$C_DELETEACLI: 
; ieee 
3 0 THEN STATUS = $S$_BADPARAM 
2 : THEN ACL_STATUS = ACL_DELETEACL (.ACL_QUEUE_HEAD, ACL CONTEXT); 
5 4 
5 5 CACL$C_READACL): 
581 66 BEGIN 
38¢ 6 IF NOT EXESPROBEW (.CALL_ACMODE, .SIZE, .BUFFER) 
58 68 THEN STATUS = SS$_ACCVIO~ 
584 $9 ELSE ACL_STATUS ="ACL_READACL (.ACL_QUEUE_HEAD, ACL_CONTEXT, .SIZE, .BUFFER); 
585 0 END; 
389 4) CACL$C_ACLLENGTH): 
588 8 BEGIN 
589 74 IF NOT EXESPROBEW (.CALL_ACMODE, .SIZE, .BUFFER) 
590 75 THEN STATUS = SS$_ACCVIO~ 
358 %6 ELSE ACL_STATUS ="ACL_ACLLENGTH (.ACL_QUEUE_HEAD, ACL_CONTEXT, .SIZE, .BUFFER); 
9 7 : 
394 8 CACLSC READACE3: 
396 1 IF NOT EXESPROBEW (.CALL_ACMODE, .SIZE, .BUFFER) 
59 é THEN STATUS = SS$_ACCVIO™ 
398 ELSE ACL_STATUS ="ACL_READACE (.ACL_QUEUE_HEAD, ACL_CONTEXT, .SIZE, .BUFFER); 
5 e 


8s 


ST ah Ah Ah Ab Ab Ab Ab Ad Ab Ab Ab Ab Ad Abb bedded b bbb bbb bebbebh hb Ab db th sh sh sh sh ah sb ah Ab Ah Ab Ab Ah Ah Ah Ab Ah hh ah ea) 
DNR EEE FS PMA & FEMA & FEW & BF PWS BFF PWIA BF PWIA EE 


608 CACLSC_RLOCK_ACL 
60 ACLS$C~WLOCK-ACLS: 
604 BEGIN 
5 IF .SIZE LSSU 4 
91 THEN STATUS = SS$_BADPARAM 
60 3% ELSE IF NOT EXESPROBEW (.CALL_ACMODE, .SIZE, .BUFFER) 
608 9 THEN STATUS = SS$_ACCVIO 
94 ELSE 
610 95 BEGIN ; 
611 P 2596 STATUS = SENQ (LKMODE = (IF .FUNCTION_CODE EQL ACLSC_RLOCK_ACL 


4 
SYSACLSRV tb-se -1984 351: AX-11 Bliss-32 V4.0-74 Page 104 B | 
VOL 000 ACL DISPATCH = main ACL function dispatcher 1 390-1382 9352038) LOADSS.SRC SYSACL SAV 69231 (16) 
; 261 P a THEN LCKSK_CRMODE ELSE LCKSX_PWMODE), 
: ra p 38 LKSB = LOCAL_IOSB, 
3 1 P RESNAM = LOCR_RESNAM 
; 619 P 26 PARID = (IF .CALL_ACMODE EQL PSLSC_USER 
3 1 P 26 THEN ,PARENT_ID 
: 261 P 6 3 ELSE 6) 
; 618 P FLAGS = LCKSM_NOQUEUE OR 
3; 261 P 2604 LCKSM_SYNCSTS OR 
: 2620 P 2605 LCKSM- SYSTEM, 
; 2621 6 ACMODE = PSLS$C_USER); 
3 26 : 6 IF_.STATUS THEN STATUS = .LOCAL_ICSBCO); 
3 ° i $08 CHSCOPY (4, LOCAL_10SB6(2)], 
> 2605 610 SIZE, .BUFFER); ! Copy lock-id 
; 26 $ 611 4 END; 
: $e58 gi8 mae 
3; 2629 614 
: 26 615 CACLSC_UNLOCK_ACLJ: 
3; 2631 O16 4 BEGIN 
; 26 ¢ 61 4 IF .SIZE LSSU 4 
3; 26 618 4 THEN STATUS = SS$_BADPARAM 
; 26 619 4 ELSE IF NOT EXESPROBER (.CALL_ACMODE, .SIZE, .BUFFER) 
3; 2635 620 4 THEN STATUS = SS$_ACCVIO 
3; 26 621 4 ELSE 
3; 26 6 ¢ 2 peein 
3; 2638 6 CHSCOPY (.SIZE, .BUFFER, 0, 4, LOCAL_LOCKID); 
3 2639 624 5 STATUS = $DEQ (LKID = .LOCAL_LOCKID); 
3; 2640 625 4 3 
s ree r $ 3 END; 
3 rok} 6 3 CINRANGE, OUTRANGE): 
3 2644 6 4 
: 2645 630 4 STATUS = SS$_BADPARAM; 
3 2646 631 END; 
3 2647 6 § 
3 or ? ? TES; 
3; 2650 635 IF NOT .STATUS THEN EXITLOOP; 
: $3) END; 
3 re o3 ! If an error occurred because of an access violation or an access conflict 
3: 2654 63 ! (trying to modify the ACL when only holding a read lock), return it. Otherwise 
; $33 $49 ! return any error that may have occurred during the ACL processing. 
3 63? yak IF .STATUS THEN STATUS = .ACL_STATUS; 
3 636 S68 ' Release the ACL mutex. 
: vet 648 SCHSUNLOCK (.ACL_QUEUVE_HEAD = SBYTEOFFSET (ORBSL_ACLFL) + SBYTEOFFSET (ORBSL_ACL_MUTEX), .CTLSGL_PCB); 
; reg: 48 RETURN .STATUS; 
3; 2664 64 
; 2665 650 END; ! End of routine ACL_DISPATCH 


kK 4 
SYSACLSRV 16-Sep-1984 01:51: AX-11 Bliss-32 V4.0-74 Pp 105 
v04 ACL_DISPATCH = main ACL function dispatcher 12786871383 9b :20 8h LOADSS  SRETSYSACL SRV 2;1 a9¢ 193 
etd BRM ty 
CURRENT WINDOW== 
10_PACKET== 


OFFC 00000 ACL_DISPATCH: 
WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 


SE 10 ¢2 000 SUBL2 #16, : 
08 00 6E a 09 sé 098 movcS #0, °(SP), #0, #8, LOCAL_10SB + 2688 
08 AE f B 0 MOVW «© #1, _LOCAL_10SB + 2489 
1 0 1 MOVL * STAT + 2490 
2 000000006 00 b> doo1e Mov; er seceBen. Re : 2495 
50 00000000' EF 4 ¢ S018 SUBL3 #36, ACL_QUEUE_HEAD, RO : 
0c AC 00 00025 MOVL SHARE, (SP) + 2494 
0 £ E 029 BLBC = (SP), : 
000000006 16 0 s SB SCHSLOCKR + 2495 
000000006 § 16 09 1$ JSB SCHSLOCKW + 2496 
56 1 cE 003A 2$ MNEGL #1, J + 2504 
0291 0030 BRW 4o$ ; 
51 56 oc C5 9040 3$ MULL3 #12, J, R1 : 
50 51 aC 4 044 ADDL ITER List, 1, RO ; 
3A AO 3C 00049 MOVZWL 2(ROJ, FUNCTION CODE ; 
50 1 aC cr 004 ADDL3 ITEM _CIST Ri, RO + 2505 
57 60 3C 0005 MOVZWL (RO)? SIZE ; 
A L L ° é 
50 1 8 C1 0005 DDL3 ITEM‘LIST, R1, RO 2506 
8 4 AO 00 O04 OVL 4 (ROY, BUFFER : 
08 01 SA CF 05 CASEL FUNCTION_CODE, #1, #11 : 2510 
908A 0085 O4F 0018 0062 4$ WORD 63-48, ; 
169 1 11A OOEA 900 A $-4$.- F 
022F 01¢8 1¢8 197 0072 B$-48 - ; 
138-48, - : 
16$-4$.- : 
188-48,- : 
$-4$,- : 
> sat $ 
$-4$.- : 
$-4$.- ; 
$-4$.- ; 
$-4$ : 
0219 31 OOO7A S$: BRW 40$ : $3 
FA E 7D 6$: BLBS (SP), 5$ > 251 
0 D MOVL BUFFER, RO : 251 
: 0000000" &éF p MOVE SIZE. RI R3 : 
titditdie 0 ° 8D JSB EXESPROBER : 
65 E BLBC 3=—s-«aRO,- 98 : 
: i 5 3% BLBC ACL_STATUS, 10$ ; 3519 
E D MOVO SIZE, =(SPS : 2520 
900000 O' EF 9F 0009 PUSHAB ACL_CONTEXT F 
0 0° EF DD OOOA PUSHL  ACL-QUEUE_HEAD ; 
000000006 00 4 Fe CALLS #4," ACL_ADDENTRY : 
9 1 AF BRS 12$ ; 
£6 $f EE Bl 7$: BLBS (SP), 5$ ; 3535 
D B4 MOVL BUFFER, RO : 
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E 
SHS: 
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yk 
RHE: 
61 
03 8 
0081 
7E 7 
00000000° EF 
00000000" EF 
00 ; 
ff ee a 
53 00000000° EF 
000000006 00 
7E 0 
7 
7E 5 
00000000" EF 
00000000" EF 
00 4 
50 5 
51 5 
53 444 4 F 
000000006 00 
7c 0 
7 90000000" i 
80000000" EF 
00 H 
03 $F 
0114 
03 5B 
0 0188 
 HSSEBS 
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fe) 
ed 


DVMDWOVIM AOS rN rn 
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pp 

a 

E 

) 

) 

i 

9$: 

4 185: 
1 001 

D 00104 11$: 

oF 107 

0D 3198 

FB 0011 

11 OO11A 12$: 

DO 0011C 13$: 

dO pit 

DO 001 

16 001 

eY 3 4 14$: 

PD 001 84 

Bb 0013p 

FB Sig 

11 OO14A 15$: 

DO OO14C 168: 

B Bie 

18 00189 

e? B12 17$: 

» 0164 

9F 00167 

DD 001 8 

fe 1 

1 17A 

6 Fm 
8 00182 19$: 
1 001 att 
F 001 1$: 
DD 001 

TF 00198 228 
D 1 $e: 
D 1A 

8 OOIAA 


Be 12:40: 


AX-11 Blis jeg-3e 


LUADSS. Ogre gat Rv B82; :1 


E, 
£ ACHODE R3 
PROBER 

ras 10$ 


AD 


NteXt 
HE 
LENTRY 


Z 
L 
E 
L 
Z 
Le 
he 
§ 
Pp 
F 
Z 
L 
E 
* 
s~ 
ZE 
L. 
L=a 


AC 
#4 “ACL FUE HEAD, 


BUFFER, RO 
we R3 
ESPROBEW 


onteay 


i ~£on UE HEAD 
“ACL_F INDENTRY 


Siseen RO 


CALL ACHODE , R3 
EXESPR ROBEW 
e7 


L7QUEUE_HEAD 
{ ACL_FINDTYPE 
P), 198 


$ 
ACL STATUS, 218 
4 


ACL_CONTEXT 
ACL"QUEUE_ HEAD 

#2, ACL_DELETEACL 
UPFER RO 

ALL ACHODE. R3 
XESPROBEW 
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SYSACLSRV 16-Sep-1984 01:51: AX-11 Bliss-32 V4.0-74 Page 
v04 ACL_DISPATCH = main ACL function dispatcher 1 730071382 9b 208k LOADSS’SREISY SACLAY 89251 
9 9 00180 24$:  BLBC RO, 3 
32 29 ’ 1B MOVG SIZE, =(SP) 
Boo00008" EF bb OOTB PUSH” ACT OUEUE HEAD 
000000006 00 4 re 1c CALLS #4," ACL_READACL 
A 11 001C 358: BRB 31§ 
0 : DO 001CB 26$: # MOVL BUFFER, RO 
0 ck MOVL SIZE, 1 
3 99000000" F p 1D MOVL CALL ACMODE, R3 
00000006 é 108 JSB EXESPROBEW 
$1 5 1DE 27$ BLBC 3=E._s«aRO,,_-33 
Ee D OO1E MOVG SIZE, =(SP) I 
99000000" EF 9F 00164 PUSHAB ACL_CONTEXT 
000000" EF DD OO1EA PUSHL ACL QUEUE_HEAD CL 
900000006 00 4 FB IFO CALLS #4, ~ACL_ACLLENGTH CL 
11 OO1F 88: BRB 31§ CL 
50 DO OO1F9 29S: MOVL BUFFER, RO CL 
1 00 1FC MOVL SIZE, R CL 
3 99000000" F DO OO1FF MOVL CALL_ACMODE, R3 CL 
00000006 16 0206 JSB EXESPROBEW CL 
3 5 OC 308 BLBC =«_«RO,,_ «33S CL 
E D 0020F MOVO SIZE, =(SP) CL 
00000000' EF 9F 12 PUSHAB ACL_CONTEXT CL 
00000000" EF DD 0021 PUSHL ACL ~QUEUE_HEAD CL 
000000006 90 4 FB 0 IE CALLS #4,” ACL_READACE CL 
B 0 D0 0 3 31$: HOVL RO ACL STATUS 
04 gf D1 A32$:  CMPL SIZE, #4 
67 1F D BLSSU  40$ 
50 38 DO F MOVL BUFFER, RO 
1 57 D0 00 : MOVL 2E, R1 
53 90000000" F 00 00 MOVL CALL ACMODE, R3 
00000006 00 16 0023¢ JSB EXESPROBEW 
6C 9 59 0 4g 33$ BLBC Q. 
7E g D 0024 MOV #3. =<(SP) 
E 7C 00248 CLRQ = =< §P) 
7E 04 0 4A CLRL 3s = (SP) 
03 00000000' ai D1 0024 CMPL cA L_ACMODE, #3 
8B 12 00 BNEQ 4 
00000000" EF DD PUSHL PARENT_ID 
2 11 B BRB 35$ , 
E p4 D 348: CLRL =< SP) 
00000000' FF F F 35$: Pus LOCK_RESNAM 
C pp 3 PUSHL # 
28 «AE OOF PUSHAB LOCAL_I0SB 
OA A 01 A CMPL  FUNCTION_CODE, #10 
a a 
é i 1 RB 37$ 
DD 0027 368: PUSHL #4 
E 04 00275 378: LRL = (SP) 
000000006 0 38 fi CALLS i » SYSSENQ 
4 F BLBC STATUS, 38$ 
9 08 AE C MOVZWL LOCAL_f0SB, STATUS 
57 00 oc AE 04 C 38$:  movcS #4, LOCAL_foSB+4, #0, SIZE, (BUFFER) 
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3 11 F BRB 45$ : 251 
04 D1 139%:  CMPL SIZE, #4 + 261 
5 BGEGU 4 : 
59 p 40$:  MOVL #20, STATUS + 2618 
41$: BRB 4 3 
5 D 42$:  MOVL BUFFER Rd + 2619 
2 D MOVL SIZE, R1 : 
90000000" F p A MOVL CALL ACMODE, R3 ; 
G : A JSB EXE PR : 
95 E AF BLBS—SséR : 
8 438: ROVL Hg. Status + 2620 
04 00 68 “ok C B6 44$:  MOVCS SIZE, (BUFFER), #0, #4, LOCAL_LOCKID + 2623 
7E 7C 00280 CLRQ 0. = (SP) + 2626 
7E 04 OO02BF CLRL = = (SP) : 
10 AE DD 002c1 PUSHL LOCAL_LOCKID ; 
ee? ae 33 08 fe soit? RO’ Stato 
10 9 €£ CE 45$:  BLBC STATUS, 4 ; 2635 
02 56 04 AC F2 00201 46$:  AOBLSS ITEM_COUNT, J, 47S + 2500 
0 i D6 ; RB 48$ : 
FD 1 00208 47$:  BRW rt} : 
93 9 £9 00208 48$:  BLBC  STATU + 2642 
9 B OD 6 DE MOVL At STATUS, STATUS : 
50 00000000° EF ee E1 49$ SUBL3 # QUEUE_HEAD, RO + 2646 
4 000000006 00 D0 002E9 MOVL Cie $ct bree RG : 
000000006 00 16 002F0 JSB SCHSUNCOCK ; 
50 59 DO 00 F6 MOVL = STATUS, + 2648 
04 OO2F RET + 2650 


; Routine Size: 762 bytes, Routine Base: S$CODE$S + 1A87 
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RUNDOWN _CHANGE_ACL = run down SCHANGE_ACL conte 14-Sep-1984 NOADSS” SRC SYSACL SRV.B52;1 (17) 


; 2667 651 1 %SBTTL ‘RUNDOWN _CHANGE_ACL = we down SCHANGE_ACL context’ 
3 63 ° § ! GLOBAL ROUTINE RONDOWN_CHANGE_A 
: Sen0 ges yi 
; ore $28 ! FUNCTIONAL DESCRIPTION: 
3; 2674 658 1: This routine is called to ercrere the eppropriate ACL operations. 
3; 2675 659 1! The code is checked for validity and, when necessary, the buffer 
3; 2676 660 1! is probed for the desired access. 
3; 2677 661 1} 
3; 267 662 1 | CALLING SEQUENCE: 
3; 267 663 1! RUNDOWN _CHANGE_ACL () 
3; 2680 664 1! 
3; 2681 665 1 i INPUT PARAMETERS: 
; 268 666 1} NONE 
3; 268 667 1: 
3: 2684 668 1} IMPLICIT INPUTS: 
3; 2685 669 1! ARENT_ID: lock ID of parent for ACL locks 
; 2686 670 1: 
3; 2687 2671 1 i OUTPUT PARAMETERS: 
3; 2688 sore 1 | NONE 
3; 2689 673 1/3 
; 2690 2674 1 | IMPLICIT OUTPUTS: 
3: 2691 sen? 1 NONE 
: 269 676 1} 
3; 269 2677 (1 i ROUTINE VALUE: 
3 2694 678 1: 1 
3; 2695 679 1: 
3: 2696 680 1 ! SIDE EFFECTS: 
3; 2697 2681 1 | ALL ACL locks taken out by user mode $CHANGE_ACL calls, plus the 
3; 2698 eT 1 i parent lock, are dequeued. 
3; 2699 2683 1! 
3 $700 2684 1 i- 
; 2701 $08? 1 
3 144 686 § BEGIN 
3 $f 687 
3 2704 688 IF .PARENT_ID NEQ 0 
3; 2705 689 THEN 
3 $708 690 BEGIN 
3; 2707 P 2691 $DEQ (LKID = .PARENT 
3; 2708 69 FLAGS = LCKSM DEGACL); 
3; 2709 69 pore (LEI = RENT_ID); 
3: 2710 694 ARENT_ID = 0; 
3 ar 69 
3; e71 69 1 
3 2714 698 1 END; ! End of routine RUNDOWN_CHANGE_ACL 
00C ENTRY RUNDOWN_CHANGE_ACL, Save R2,R3 : 2652 
4g 00° 3 MOVAB SYSSDEQ) R3 3 
EE 9 MOVAB PARENT_[D, R ; 
1 MOVL PARENT_ID, R : 2688 
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voe- 000 RUNDOWN _CHANGE_ACL = run down SCHANGE_ACL conte 1 é-sen-1984 93: 20; 3 LOADSS” SR RC ISY Sac shy 882; 1 . (17) 
14 13 0001 BEQL =s«1$ ; s 
gi bp 1 PUSHL #1 + 2692 * 
F C 1 CLRQ.  =(SP) : C 
DD 00019 PUSHL : ¢ 
63 4 FB 0001B CALLS #4, SYS$DEQ ; ¢ 
7¢ 0001 CLRQ 0s = §p) > 2693 ¢ 
7E DG CLRL 0s = (SP) ; ¢ 
6 DD PUSHL PARENT ID : ¢ 
63 4 FB 4 CALLS NTeID : C 
62 D4 7 CLRL Pane + 2694 C 
50 01 00 9 1$: MOVL 3 2698 C 
04 0002C¢ RET : : 
; Routine Size: 45 bytes, Routine Base: S$CODE$ + 1081 3 
C 
3; 2715 2699 C 
3; 2716 2700 END C 
: 277 2701 0 ELUDOM 3 
C 
C 
C 
: PSECT SUMMARY 
: Name Bytes Attributes 
: SOWNS 1171 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON.NOPIC.ALIGN(2) 
: SPLITS 1396 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC.ALIGN(2) C 
> LIBSKEYOS 42 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) C 
; TLIBSSTATES 664 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) C 
: “LIBSKEY1 e13 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) C 
; SCODES 7598 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON NOPIC »ALIGN(2) C 
Ae te 0 NOVEC,.NOWRT.NORD .NOEXE,NOSHR, LCL. ABS. CON.NOPIC,ALIGN(O) : 
C 
C 
C 
: Library Statistics | 
; weceen== Symbols -o------ Pages Processing ¢ 
; File Total Loaded Percent Mapped Time | 
: .$255$DUA28:CSYSLIBILIB.L32;1 18619 211 1 1000 00:01-8 C 
3 ~$255$DUA28:CSYSLIBJTPAMAC.L32;1 42 28 66 14 ; 0:00.2 3 
C 
C 
C 
:; Information: 1 ¢ 
3; Warnings: 0 C 
: Errors: 0 C 
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¥02-000 RUNDOWN_CHANGE_ACL = run down SCHANGE_ACL conte ~3eP 7} 3RF 9}: 26; 2} LOADSS. orcas SYSACL shy BS2; 31 (1 
COMMAND QUALIFIERS 

BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:SYSACLSRV/OBJ=OBJ$:SYSACLSRV MSRC$:SYSACLSRV/UPDATE=(ENH$:SYSACLSRV) 


$ Size: 7598 code + 3486 data bytes 
; Run Time: 03:19.4 

: Sreeaae Time: 06:02.3 

; Lines/CPU Min: 81 

3; Lexemes/CPU-Min: 3799 

; meee | Used: 1462 pages 

: a 


; Compilation Complete 
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